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COBOL  COMPILER  VALIDATION  SYSTEM  - 1974 
( CCVS74) 

Version  3 Release  0 (3.0) 


1.  INTRODUCTION 

The  1974  COBOL  Compiler  Validation  System  is  based  on  the  technical  speci- 
fications contained  in  American  National  Standard  Programming  Language  COBOL# 
X3. 23-1974.  It  is  made  up  of  audit  routines#  tneir  related  data  and  an  execu- 
tive routine  (PPLVP74)  which  manages  the  audit  routines  and  prepares  them  for 
compilation.  Each  audit  routine  is  a COBOL  source  program  which  includes  many 
tests  and  supporting  procedures  indicating  the  results  of  each  of  the  tests. 
The  audit  routines  makinn  up  Version  3.0  of  C CVS 7 4 collectively  contain  all  of 
tne  features  in  the  High  level  of  Federal  Standard  COBOL  (FIPS  PUP  21-1).  The 
Communication  Module  has  been  excluded  from  this  release  of  C v.  VS 74  . 

1.1  BACKGROUND 


The  Federal  COBOL  Compiler  Testing  Service  (FCCTS)  is  an 
Software  Development  Division  of  the  Department  of  the  Navy# 
Automation  Command#  Federal  Operations  Directorate. 


activity  of  the 
Naval  Data 


After  July  1#  1972#  all  COPOL  compilers  brought  into  the  Federal  Govern- 
ment had  to  be  identified  as  implementing  one  of  the  levels  of  the  Federal 
COBOL  Standard  as  defined  in  FIPS  PUP  21.  The  National  Bureau  of  Standards 
(NFiS)#  which  has  the  responsibility  for  the  development  and  maintenance  of 
Federal  ADP  Standards#  delegated  to  the  Department  of  Defense  ( DCD)  the 
responsibility  for  the  operation  of  a r-over  nmen  t - w i de  COBOL  Compiler  Testinq 
Service.  This  responsibility  was  discharged  by  t hp  FCCTS  through  the 
implementation  and  maintenance  of  the  1968  C ° B 0 L Compiler  Validation  System 
(CCVS6E)#  a comprehensive  set  of  computer  programs  used  to  test  COBOL  compilers 
for  compliance  with  the  Federal  COPOL  Standard. 

In  anticipation  of  the  updating  of  Federal  Standard  COBOL#  the  Software 
Development  Division  began  Droducing  a new  COPOL  Compiler  Validation  System 
which  was  based  on  the  then  proposed  American  National  Standard  Programming  Lan- 
guage COPOL#  X3. 23-1974.  Federal  Standard  COPOL  was  formally  revised  with  the 
acceptance  of  FIPS  PUB  21-1  by  the  Department  of  Commerce  in  Auqust  1^75. 

FIPS  PUR  21-1  was  formally  published  in  December  1975#  and  all  COBOL  compilers 
brought  into  the  Federal  Government  after  June  1^77  have  to  be  identified  as 
i mp  l amen t i nu  one  of  the  levels  as  defined  in  the  revised  Federal  COBOL  Standard. 

[The  validation  of  COBOL  compilers  by  the  Federal  COBOL  Compiler  Testing 

Service  is  done  in  support  of  the  General  Services  Adm i n i s t r a t i o n (6SA)  Federal 
Property  banaoement  Regulation  (FPbR)  1 01 -32 . 1 3U5 -1  a "Validation  of  COBOL 
Compilers".  All  COBOL  compilers  brought  ‘-to  the  Federal  inventory  shall  be 
validated.  The  tpst  results  for  a C r> boi  .piler  shall  be  used  by  a Federal 
Agency  to  confirm  that  a compiler  meets  m.  specifications  of  a designated 
level  of  Federal  Standard  COBOL  (FIPS  PUB  21-1)#  insofar  as  the  COBOL  Compiler 
Validation  System-  tests  the  laneuane  elements  included  in  that  level  of  the 
Standard. 

La 
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The  development  of  the  1974  COBOL  Compiler  Validation  System  began  in  June 

1973  and  was  based  on  the  already  existing  1968  CC VS.  The  programs  making  up 
the  1968  CCVS  were  converted  in  order  to  conform  to  the  1974  COBOL  specifica- 
tions. Additional  programs  were  designed. to  test  the  new  functions  of  existinn 
modules  as  well  as  the  new  modules  introduced  into  COBOL  74. 

Version  1.0  of  the  1974  CCVS  was  released  in  November  1975  and  contained 
tests  for  the  Low -I nt e rmed i a t e level  of  Federal  Standard  COBOL.  Programs 
testing  the  High  Federal  level  were  added  to  the  1974  CCVS  and  released  as 
version  2.0  in  February  1977.  With  the  formal  announcement  in  the  Federal 
Register  in  April  19  7 7 * Version  2.0  became  the  official  set  of  audit  routines 
for  validating  a COBOL  Compiler's  adherence  to  FIPS  PUB  21-1.  The  official 

1974  CCVS  included  proorams  for  testing  the  Report  Writer  module  but  the 
Communication  module  was  not  included. 

Version  3.0  of  the  1974  CCVS  contains  programs  which  test  the  flagging 
requirement  of  FIPS  PUB  21-1.  Additional  tests  have  also  been  includeo  for 
language  elements  in  the  Nucleus*  Table  Handling*  I nt er -Prog  ram  Communication 
and  Indexed  1-0  modules.  The  Communication  module  is  excluded  from  Version 
3.0  of  the  1974  CCVS. 

1.2  PURPOSE  AND  NATURE  OF  COBOL  COMPILER  VALIDATION 

The  validation  of  a compiler*  or  any  piece  of  software*  determines  the 
degree  to  which  that  product  conforms  to  the  technical  specifications  on  which 
it  was  based.  The  use  of  compilers  that  have  attained  a high  dearee  of  conform- 
ance with  their  respective  language  standards  (technical  specifications) 
enhances  source  program  interchangeability  within  all  ADP  installations  which 
use  that  particular  programming  lanouaoe. 

The  results  of  running  a Compiler  Validation  System  does  not  suggest  the 
degree  to  which  the  compiler  is  usable  (i.e.*  capable  of  data  processing  appli- 
cations)*  but  the  degree  to  which  individual  lanouage  elements  are  usable.  This 
gives  an  indication  of  conversion  areas  which  must  be  considered  in  order  to 
implement  a source  program*  from  another  computer  system  supporting  a compiler 
based  on  the  same  set  of  lanouaoe  specifications. 

Thus*  the  COBOL  Compiler  Validation  System  (CCVS)  can  be  used  to  test  a 
COBOL  compiler's  adherence  to  the  standard  language  syntax*  and*  where  unambig- 
uous* language  semantics  of  the  technical  specifications  upon  which  the  com- 
piler is  based.  The  latter*  of  course*  is  a more  difficult  area  because  of  the 
lack  of  appropriate  mpchanisms  for  precise  semantic  specifications.  The  Valitia- 
t ion  System  does  not  evaluate  the  implementation  of  a compiler  nor  its  quantita- 
tive performance  characteristics. 

1.3  THE  1974  COBOL  COMPILER  VALIDATION  SYSTEM 

The  1974  COBOL  Compiler  Validation  System  (CCVS74)  consists  of  audit 
routines  produced  in  accordance  with  the  technical  specifications  contained  in 
COBOL  74  ( X3 . 23-1 974 ) * their  related  data*  and  an  executive  routine  (PPLVP74) 
which  prepares  the  audit  routines  for  compilation.  Each  audit  routine  is  a 
COBOL  source  program  which  includes  many  tests  and  supporting  procedures  indi- 
cating the  result  of  each  test.  The  audit  routines*  from  a design  standpoint* 
collectively  contain  the  features  of  American  National  Standard  Programming  Lan- 
guage COBOL*  X3. 23-1974*  except  for  the  Communications  module*  the  F^TER 
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statement  and  arithmetic  expressions  in  the  Nucleus  module. 

The  audit  routines  are  maintained  in  a system  independent  source  program 
library  on  magnetic  tape.  The  use  of  magnetic  tape  is  strictly  for  purposes 
of  transportability.  The  source  program  library  can  be  placed  in  a sequential 
mass-storage  file/  and  in  many  instances/  this  is  done  riurinn  the  validation 
of  a compiler  for  purposes  of  convenience. 

The  executive  routine  extracts  source  programs  from  the  source  library  snH 
creates  a file  containing  each  audit  routine  with  appropriate  implementor  names 
inserted  in  the  source  code.  Additionally/  the  operating  system  control 
language  statements  required  for  compiling  and  executing  each  routine  are 
generated  before  and  after  each  source  prooram  as  required.  This  file  is 
then  input  to  the  operating  system  as  a series  of  independent  jobs. 

The  testing  of  a compiler  in  a particular  ha r dwa re /ope r a t i ng  system  envir- 
onment is  accomplished  by  compilino  and  executing  each  audit  routine.  An 
output  report  produced  by  the  execution  of  each  audit  routine  indicates  whether 
the  compiler  passed  or  failed  each  of  the  tests  contained  in  the  audit  routine. 

If  the  compiler  rejects  a languaoe  element  by  terminatino  compilation/ 
issuing  fatal  diagnostic  messages/  or  terminating  execution  abnormally/  then  the 
test  containing  the  code  the  compiler  was  unable  to  process  is  deleted.  After 
the  offensive  code  is  deleted/  the  audit  routine  is  recompiled.  / test  is 
deleted  by  changing  the  source  code  in  the  test  paragraph  to  comment  statements/ 
thereby  allowing  the  compiler  to  produce  a 'clean*  object  program. 

The  compiler  listing  (including  any  error  messages)/  the  output  reports  of 
each  of  the  audit  routines/  and  the  updates  shown  in  the  output  of  the  PPLVP7f* 
processor  constitute  the  raw  data  from  which  the  members  of  the  Federal  COBOL 
Compiler  Testing  Service  produce  a Validation  Summary  Report  (VSF).  The  VSP  is 
the  vehicle  by  which  the  Federal  Government/  for  contractino  purposes/  deter- 
mines the  degree  to  which  a COBOL  compiler  conforms  to  the  reouesting  agency’s 
requirements.  The  VSR  is  primarily  intended  to  be  used  as  part  of  the  procure- 
ment process/  but  a VSR  must  be  requested  each  time  a COBOL  compiler  in  the 
Federal  Inventory  is  updated  or  chanqed. 

1.4  OBTAINING  VALIDATION  SERVICES 

1.4.1  Int  roduct ion 

The  NBS-DOD  agreement  (mentioned  in  1.1  above)  covers  cos t - re i nbur s at l ° 
validations  requested  by: 

- vendors  wishing  to  have  a compiler  validated  for  their  own 
purposes; 

- vendors  wishing  to  have  a compiler  validated  in  response  to 
a Government  request  for  proposals; 

- Government  agencies  involved  in  a procurement; 

- Government  agencies  wishing  to  validate  a compiler  already 
in  use;  or 
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- Other  organizations#  where  the  validation  of  a compiler  benefits 
the  Federal  Government. 

The  results  produced  during  an  official  validation  are  reviewed  bv  the 
Federal  COBOL  Compiler  Testing  Service#  which  prepares  a Validation  Summary 
Report  (VSR).  The  initial  dissemination  is  to  the  requestor  and  the  vendor 
who  supports  the  compiler.  If  a requested  validation  has  previously  teen 
performeo  on  a similar  computer  configuration#  the  validation  may  not  be 
repeated#  in  which  case  the  earlier  VSR  is  provided  to  the  requestor.  The  VSR 
classifies  a compiler  according  to  each  level  of  the  Federal  COBf'L  Standard  for 
which  support  is  claimed. 

1.4.2  Requesting  Validation  Services 

A REQUEST  FOR  VALIDATION  SERVICES  form  may  he  obtained  by  writing  to: 
Director 

Federal  COBOL  Compiler  Testing  Service  (FCCTS) 

Department  of  the  Navy 
Washington#  D.  C.  20376 

The  necessary  information  required  to  request  a validation  by  the  FCCTS  and  o 
sample  validation  request  form  is  contained  in  Appendix  F of  this  document. 

1.5  OVERVIEW  OF  THE  CCVS74  USERS  6UIDE 

The  Users  Guide  explains  the  implementation  and  use  of  CCVS74  and  tie 
general  ouidelines  used  by  the  Federal  COBOL  Compiler  Testing  Service  in  con- 
ducting an  official  validation. 

Section  2 goes  into  the  organization  and  philosophy  of  CCVS74.  It  also 
explains  the  loaical  steps  in  implementing  the  system  in  oeneral  terms. 

Section  3 identifies  alt  of  the  software  (source  proorams)  comprising 
CCVS74.  This  includes  all  of  the  audit  routines  and  two  executive  routines. 

The  two  executive  routines  (one  is  larger  and  more  sophisticated  than  the 
second)  are  used  to  extract  the  source  programs  from  the  Population  File  (source 
program  library)  and  prepare  them  for  compilation  on  a particular  system. 

•During  an  official  validation#  one  of  these  two  executive  routines  is  used 
to  select  the  source  proorams  to  be  run  and  for  making  chanqes  to  any  of 
the  source  programs.  The  printed  output  from  th«  executive  routine  is  consid- 
ered part  of  the  raw  data  for  producing  the  Validation  Summary  Report. 

Section  4 of  this  document  contains  information  necessary  for  orderino  the 
complete  detailed  test  specifications  for  the  audit  routines  makino  up  CCVS74. 

Section  5 contains  the  information  necessary  to  produce  the  environmental 
input  for  the  CCVS74  executive  routines.  This  information  is  used  by  the 
executive  routine  (VP-routine)  to  resolve  all  of  the  implementor-defined  namps 
which  are  used  in  the  audit  routines  as  the  source  proorams  are  extracted  f r on 
the  Population  File  for  compilation. 

Section  t describes  the  source  lanouaoe  elements  which  can  automatically 
be  eliminated  when  the  source  proqrams  are  selected  and  prepared  for  compila- 
tion. These  include  language  elements  which  do  not  need  to  be  implemented  to 
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Jieet  the  required  lannuaqe  specifications  in  the  COBOL  Standard  (e.a.#  CLOSE 
...UNIT#  VALUE  OF  phrase  of  the  File  Description  entry).  The  automatic  elimina- 
tion of  these  language  elements  is  in  lieu  of  preparing  source  program  updates 
to  accomplish  the  same  thina.  Tnis  technique  provides  for  consistency  in 
running  the  audit  routines  when  certain  source  code  must  be  eliminated. 

Section  7 is  a 'checklist*  which  can  be  used  in  implementing  C C V S 7 4 and 
generating  all  the  necessary  input  required  by  the  executive  routine  to  produce 
a source  program  for  the  system  beino  validated.  It  oives  the  user  a feel 
for  what  constitutes  valid  modifications  to  the  source  programs  making  ur> 
the  audit  routines  in  CCVS74. 

Section  6 is  made  up  of  the  Software  Development  Division's  r-uidelines 
which  are  followed  by  the  members  of  the  Federal  COBOL  Compiler  Testing  Ser- 
vice when  performing  an  official  validation.  These  are  provided  to  give  the 
user  an  idea  of  what  to  expect  in  the  way  of  required  outputs  and  the  methods 
used  for  validating  a compiler  in  the  event  that  an  official  validation  is 
r e qu i red . 

Section  9 is  a list  of  programs  which  must  be  compiled  and  executed  in 
order  to  validate  each  of  the  four  Federal  Levels  define^  in  FIPS  PUB  21-1. 


Section  10  describes  and  identifies  the  Population  file 
Library)  for  CCVS74  3.0. 


(source  program 


Appendix  A is  the  users  guide  for  the  executive  routine  (PPLVP74)  which 
must  be  used  in  performina  an  official  validation.  This  appendix  contains 
all  of  the  commands  reconni zed  by  PPLVP74#  the  information  necessary  to  des- 
cribe the  Job  Control  Lanquaqe  which  should  be  generated  for  each  source 
program  selected  from  the  Population  File  (source  program  Library)#  and  the 
techniques  by  which  uodates  can  be  made  to  the  souce  programs  as  they  are 
selected. 

Appendix  B contains  the  information  necessary  to  extract  and  implement  the 
executive  routine  in  support  of  CCVS74.  This  is  made  up  of  a sample  COBOL 
source  program  (boot  program)  which  can  be  used  to  extract  the  executive 
routine  for  compilation.  It  also  contains  the  information  necessary  to  use 
the  executive  routine  to  extract  itself  and  the  information  for  oeneratiriq  a 
new  executive  routine  which  differs  from  those  extracted  by  the  boot  prooram. 

Appendix  C contains  the  messaoes  and  error  diaanostics  produced  by  the 
executive  routine  (PPLVP74). 

Appendix  D contains  a brief  description  of  the  functions  tested  by  each 
of  the  audit  routines.  It  also  contains  the  necessary  environmental  informa- 
tion which  must  be  provided  when  each  audit  routine  ic  selected. 

Appendix  F contains  system  dependent  information  tor  the  implementation  of 
the  PPLVP74  processor.  Examples  are  included  for  imp  l em.®nt  at  ion  on^er  fc  v p c — 
(UNIVAO#  G C OS  (HIS)  and  OS/VS  (IPI*). 

Appendix  F contains  information  regarding  the  Federal  COBOL  Compiler  Test- 
i no  Service#  FIPS  PUB  21-1  and  the  information  necessary  to  reauest  validation 
services. 
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Appendix  0 contains  Temporary  Program  Fixes  ( TPF  • s ) which  were 
after  the  population  file  for  this  version  of  CCVS74  was  produced. 


discovered 
A list  of 


the  latest  TPF's  for  any  validation  produce  by  the  FCCTS  is  available. 
Requests  should  be  forwarded  to: 

Director 

Federal  COBOL  Compiler  Testing  Service 
Department  of  the  Navy 
Washington/  D.C.  20376 
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2.  ORGANIZATION  AND  PHILOSOPHY  OF  THF  COBOL  COMPILFK  VA'IDATION  SYSTE^.  (CCVS) 


2-1  PHILOSOPHY  OF  THE  CCVS 

The  programs  comprising  the  CCVC  are  maintained  in  a system  independent 
source  pronram  library  on  magnetic  tape.  The  programs  are  designed  in  such  a 
way  that  all  implementor  names  are  presented  in  encoded  mnemonics.  These 
mnemonics  are  each  made  up  of  a series  of  X ' s followed  by  a three  digit  integer 
The  executive  routine  provided  with  the  CCVS  replaces  these  mnemonics  with 
information  provided  by  the  user  at  the  time  the  source  programs  are  extracted 
from  the  source  library.  This  results  in  syntactically  correct  programs  for 
a given  compiler.  The  techniques  for  ident  i ty  in^  the  mnemonics  and  providing 
the  information  necessary  to  resolve  them  are  discussed  in  detail  in  Section  5 
of  this  document . 

There  are  certain  language  elements  defined  in  the  COBOL  Standard  which 
need  not  be  supported  in  order  for  an  implementation  to  conform  to  the  Standard 
The  testing  of  these  elements  is  accomplished  through  "optional  code".  The 
optional  code  can  be  selected  as  part  of  the  source  program  or  eliminated 
altogether  throunh  the  use  of  an  *0PTI0N  command  provided  to  the  PPLVP74 
processor.  The  various  options  are  further  described  in  Section  t of  this 
document . 

Once  the  audit  routines  have  been  processed  by  PPLVP74,  then,  assuming  the 
user- provided  information  was  correct,  the  results  are  syntactically  correct 
programs  for  the  compiler  being  validated.  The  rejection  of  any  of  the  source 
code  by  the  compiler  is  a deviation  from  the  technical  specifications  from 
which  the  CCVS  is  produced.  It  should  be  noted  tnat  this  is  by  design,  and 
no  code  which  would  te  rejected  by  a compiler  has  been  introduced  in  any  of  the 
source  proa  rams  miaking  up  the  CCVS. 


2.2  ORGANIZATION  OF  THE  CCVS 

2.2.1  Introduction. 

The  Population  File  tape  is  a system  independent  source  procram  library. 

It  contains  the  executive  routine  (PPLVP74),  environmental  information,  the 
audit  programs,  and  all  necessary  data  comprising  the  19  74  CCVS.  Each  program 
contains  entries  and  statements  that  thoroughly  exercise  features  of  a portion 
of  the  language.  Unless  it  is  otherwise  stated  or  implicit  in  the  type  of 
features  oeinq  tested,  each  program  is  restricted  to  testing  the  features  of  a 
specific  level  of  one  functional  module  of  COBOL.  Some  basic  features  of  COrOL 
(such  as  MOVE,  6C  TO,  PICTURE,  IF,  and  SFLFCT)  are  used  as  supporting  code  in 
all  of  the  audit  routines.  If  any  of  these  features  functions  incorrectly,  t hr 
compiler  may  be  dismissed  immediately. 

2.2.2  American  National  ctandard  Programmina  Lamuaae  C0n0L,  X3. <.3-1  974. 

The  specifications  for  A NS  COBOL  are  based  on  a functional  process  con- 
cept. The  language  is  divided  into  a Nucleus  (internal  processing)  and  eleven 
functional  processing  modules.  The  functional  processino  modules  are  Table 
Handling,  Sequential  1-0,  Relative  1-0,  Indexed  1-0,  Sort -Me  roe , Reoort  Writer, 
Segmentation,  Library,  Debug,  Inter-program  Communication,  and  Communication. 
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In  addition/  each  module  is  further  divided  into  two  (low  and  h i o h ) or  three 
(null/  low/  and  high)  levels. 

In  general/  the  soph i s t i cat i on  and/or  capability  of  the  functional  module 
increases  with  each  higher  level.  Fach  level  contains  the  capabilities  of 
all  lower  levels  within  the  same  module.  For  example/  level  2 Table  Handling 
contains  all  the  capabilities  of  level  1 Table  Handling  plus  those  features 
associated  with  level  7 Table  Handling. 

2.2. 3 Federal  Standard  COBOL  - FIPS  PUB  21-1. 

The  specifications  for  Federal  Standard  COBOL  are  the  language  specifi- 
cations given  in  X3. 23. 1974  minus  the  Report  Writer  mioriule.  The  functional 
orocessing  modules  defined  in  X3. 23-1974  are  combined  into  four  levels  for 
Federal  Standard  COBOL.  These  four  levels  are  identified  as  Low/  Low- 
Intermediate/  H i oh -I nt e rmed i a t e and  Hiqh.  The  X3. 23-1974  modules  and  the 
module  level  contained  in  each  Federal  level  are  given  in  the  following  chart. 


Low 

Level 

Low 

Inte  mediate 
Level 

High 

Intermediate 

L °v  e l 

High 

Level 

NUCLEUS 

1 

1 

? 

2 

F PM  S 

TABLE  HANDLING 

1 

1 

L 

—i 

L 

SEQUENTIAL  1-0 

1 

1 

c 

? 

RELATIVE  1-0 

- 

1 

2 

C 

INDEXED  I -0 

- 

- 

- 

o 

c 

SORT -ME RGE 

- 

- 

i 

2 

REPORT  WRITFR 

- 

- 

- 

- 

SEGMENTATION 

- 

1 

i 

2 

LIBRARY 

- 

1 

i 

2 

DEBUG 

INTER-PROGRAM 

1 

2 

2 

COMMUNICATION 

- 

1 

2 

2 

COMMUNICATION 



2 

2 

2.2.4  Naming  Convention  for  Audit  Routines. 


Fach  individual  audit  routine  is  named  to  associate  it  with  the  module 
and  level  of  ANS  COBL  tested  therein.  Each  module  and  level  is  represented  by 
several  programs.  An  audit  routine  name  consists  of  five  characters.  The  first 
two  characters  are  alphabetic  and  identify  the  functional  module  beino  tested. 

Chi  Communication 
DB  Debug 

IC  Inter-program  Communication 
IX  Indexed  I -0 
LB  Library 
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NC  Nuc  Leus 
RL  Relative  I - 0 
RW  Report  Writer 
SG  Segmentation 
SQ  Sequent ia l 1-0 
ST  So r t-fle rge 
TH  Table  Handlino 

For  the  audit  routines  which  are  not  flanging  routines*  the  next  char- 
acter is  either  a 1 or  a 2 and  identifies  the  level  of  the  functional  module 
module.)  The  last  two  characters  are  01*  02*  03*  etc.*  to  give  unique  names 


I"  vuu  v.  ^ , / inc  i oa  i twL/  v>  it  a i u t i c i o a t kt  u I r c r u J r c i l ■ / i «/  u i v r un  iquc  ri  ohic  5 

to  each  program  containing  features  tested  within  the  sane  level  of  the  same 
functional  module.  For  example*  TH20  4 is  the  4th  in  a series  of  several  pro- 
grams which  test  level  2 of  the  Table  Handling  module. 

The  five  character  program  name  for  each  flagging  audit  routine  has  the 
format  XXY2N  where: 


XX  is  the  2-character  name  identifying  the  COBOL  module. 

Y is  the  integer  4 to  identify  the  program  as  a flaggina  audit  routine, 
Z is  the  lowest  Federal  COBOL  level  in  which  this  program  is  contained 
with 


audit  routine. 


2 = Lo w- i n t e rmed i a t e * 

3 = H i gh- i nt  e r me di  a t e* 

4 = High. 


N is  a sequence  number. 


For  example*  RL421  represents  a Relative  1-0  flagging  audit  routine  which 
contains  language  elements  found  in  the  Low -I n t e r med i a t e level  of  Federal 
Standard  COBOL. 

2.2.5  Choice  of  Audit  Routines. 


Because  of  the  attributes  described  above*  it  is  possible  to  test  any 
combination  of  levels  and  modules  of  Federal  Standard  COBOL.  The  routines  can 
either  be  selected  individually  by  levels  within  modules*  or  in  convenient 
groups  ("subsets").  (The  source  program  selection  process  includina  a descri- 
otion  of  the  required  PPlVP74  control  statements  to  perform  the  selection  is 
described  in  Appendix  A.) 

For  example*  in  order  to  test  level  1 of  the  Nucleus*  level  2 of  Table 
Handling*  and  level  2 of  Relative  1-0*  it  is  necessary  to  select  all  proorams 
which  begin  with  the  first  three  characters  "NCI"*  "ThI"*  "TH2"*  "PLl"*  and 
"RL2".  (Note  that*  according  to  ANS  specifications*  the  higher  level  (s)  of  a 
given  module  technically  consist  of  the  lower  level  plus  some  unique  "higher- 
level  features".  Therefore*  in  order  to  completely  test  any  higher-level 
module*  it  is  necessary  to  select  all  lower-level  tests  for  the  module  as  well.) 

The  first  two  characters  of  a flaqging  prooram-name  identify  the  ANS 
module*  but  the  ANS  module  level  is  not  part  of  the  routine  name.  Instead*  the 
Federal  level  is  indicated  by  the  name.  In  order  to  completely  test  a particu- 
lar AN£  module*  it  is  necessary  to  correlate  the  ANS  module  level  to  the  Federal 
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level  in  which  it  appears.  As  an  example,  to  completely  test  level  2 of  the 
Relative  1-0  module,  which  is  contained  in  High-Intermediate  Federal  Standard 
COBOL,  the  flagging  routines  RL421  and  KL431  must  also  be  selected. 


2.3  STEPS  FOR  USING  THF  1974  COBOL  COMPILER  VALIDATION  SYSTEM. 

2.3.1  General. 

Five  distinct  steps  are  to  be  taken  in  usino  the  audit  routines.  In 
some  steps  manual  operations  are  reauired,  and  in  two  of  the  steps  it  will 
frequently  be  necessary  to  go  back  to  previous  steps. 

Many  users  will  find  the  entire  set  of  audit  routines  too  voluminous  to 
introduce  into  the  system  in  one  pass.  If  this  is  the  case,  the  audit  routines 
can  be  divided  into  several  portions  in  any  way  the  user  wishes,  and  each  por- 
tion can  be  run  separately,  beginning  with  step  two.  c-t  pp  one  needs  to  be  per- 
formed only  once,  regardless  of  the  apportionment.  The  entire  process  is 
described  in  paragraphs  2.3.2  through  2.3.6. 


2.3.2  Step  One  - PPLVP74  Processor  (Executive  Routine). 

The  PPLVP74  processor  which  is  written  in  COBOL  must  be  extracted  from 
the  Population  File.  This  can  be  done  using  the  sample  program  described 
under  PPLVP74  GENFRATION  in  Appenoix  R . When  modified  appropriately,  the 
sample  procram  will  extract  the  PPLVP74  processor,  place  the  correct  imple- 
ment o i — names  in  the  appropiste  places,  establish  table  sizes  for  the  various 
control  information  used  by  the  processor,  and  select  all  of  the  necessary 
optional  source  statements  to  produce  a complete  rrooram.  The  PFLVC>74 
processor  is  then  compiled  for  subsequent  use  in  the  manipulation  of 
the  Population  File  (source  program  library)  and  its  contents. 

2.3.3  Step  Two  - PPLVP74  Input  Parameters  and  Data. 

Before  the  PPLVP74  processor  (or  executive  routine)  can  be  used,  input 
data  must  be  prepared  for  it.  This  input  includes  the  information  necessary  to 
(1)  select  the  source  programs  to  be  extracted,  compiled  and/or  executed;  (2) 
resolve  all  of  the  implementor-names  which  may  be  present  in  the  Environment 
and  Data  Divisions  (see  Section  5 for  a list  of  the  mnemonics);  (3)  establish 
which  options  are  to  be  used  in  reqard  to  optional  source  cards  (see  Section  6); 
(4)  describe  a skeleton  of  the  Job  Control  Lanauage  to  be  generated  for  each 
program  or  set  of  programs  (see  Appendix  A). 


2.3.4  Step  Three  - PPLVP74  Execution. 

Step  three  consists  of  executing  the  PPLVP74  processor.  There  are  two 
primary  output  files:  PRINT-FILE  and  SOURCE  -C03PL -PROGRAMS.  S0l'RCE-C0?"L- 
PPOGRAMS,  or  source  file,  consists  of  audit  routines  in  the  form  of  COBOL  pro- 
grams, copied  with  a small  number  of  chanoes  from  the  Population  File.  These 
chanoes  include  the  insertion  of  meaningful  i mp l emen t o r-name s ano  job  control 
language.  PRINT-FILE,  the  PPLVP74  listing,  contains  a summary  of  these  changes 
plus  error  messages  generated  by  the  processor,  if  appropriate,  plus  some  minor 
accounting  information. 

The  user  can  determine  from  the  listing  whether  the  source  file  has  he^n 
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created  satisfactorily.  Each  possible  message  on  this  listing  is  explained  in 
Appendix  f.  If  the  PPLVP74  processor  listing  indicates  that  the  source  file  is 
not  in  the  form  desired  by  the  user/  it  can  be  corrected  by  returning  to  step 
two  and  modifying  the  PPLVP74  control  cards/  and  repeating  step  three.  , hen  a 
satisfactory  source  file  is  created/  the  validation  continues  with  step  four. 

2.3.5  Step  Four  - Introducing  the  Audit  Routines  into  the  Operating  System 

Environment. 

Step  four  introduces  the  output  from  the  PP l VP 74  processor  into  the 
operating  system  as  input.  Each  of  the  proorams  selected  should  be  ready  to 
execute  as  a series  of  jobs  from  the  source  file.  The  method  used  to  enter 
this  jcbstream  into  the  system  is  implementor  defined.  All  of  these  factors 
should  have  been  considered  in  preparing  the  PPLVP74  processor  control  cards 
in  step  two/  and  when  describing  the  source  file  to  be  produced  by  the  P P L V P 7 4 
processor  in  step  one. 

If  the  user  exercises  his  option  to  build  the  COBOL  copy  library  for  use  in 
validating  the  Library  module  and  the  computer  has  multiprogramming  capabili- 
ties/ the  user  should  include  instructions  in  the  jobstream  to  assure  that  the 
copy  library  is  completely  built  before  the  audit  routines  that  interact  with 
the  Library  begin  to  compile.  If  this  is  not  possible/  the  copy  library  file 
should  be  built  in  an  earlier  independent  run. 

The  audit  routines  are  designed  to  run  with  a minimum  of  operator  interven- 
tion. All  files  used  are  created  by  the  audit  routines/  immediately  used/  and 
scratched.  No  more  than  five  tape  (seauential)  files  and  three  I'ass-storeoe 
files  are  used  by  any  single  pro o ram.  Only  one/  or  at  most  two/  audit  routines 
require  direct  interaction  with  the  operator.  Pertinent  details  about  every 
audit  routine  are  discussed  in  Appendix  D . During  an  official  validation/ 
one  set  of  Sequential  1-0  programs  requires  a tape  input  file  created  on  another 
computer  system  to  determine  whether  the  compiler  and  operating  system  support 
ASCII  and  related  data  interchange  standards. 

2.3.6  Step  Five  - Examining  the  Results  of  Compiling  / Executing  the  Audit 

Routines. 

The  last  step  is  to  examine  the  results  of  the  compilation  and  execution 
of  each  audit  routine.  If  there  are  any  errors  in  the  compilation  of  an  audit 
routine/  the  execution  report  must  be  considered  invalid.  The  user  is  net  to 
dismiss  as  "unimportant"  any  errors  that  the  compiler  designates  as  "fatal". 

When  any  fatal  compiler  error  occurs/  the  user  must  make  update  cards  as  des- 
cribed in  Appendix  A. 4 to  eliminate  the  errors.  These  updates  are  added  to  the 
to  the  PPLVP74  control  card  deck/  and  steps  3/  4/  and  5 are  repeated  until  a 
valid  report  is  generated. 

The  results  of  the  execution  of  each  audit  routine  are  presented  in  the 
form  of  a printed  report.  Each  test  in  the  audit  routine  is  described  by  the 
words  "PASS"/  "FAIL”//  or  "TEST  DELETED”/  along  with  a brief  description  of  the 
nature  of  the  test  and  the  name  of  the  COBOL  program  paragraph  that  contains  the 
source  code  making  up  the  test.  Fach  "FAIL"  on  the  report  is  usually  accom- 
panied by  further  information  to  help  determine  the  cause  of  the  failure. 


The  raw  data  collection  for  a validation  is  complete  when  a valid  report 
is  achieved  for  each  of  the  audit  routines  being  used. 


For  the  most  part*  the  necessary  data  for  the  proarams  are  created 
either  internally  or  by  the  previous  program  within  that  module  and  level. 

The  library  module  requires  external  data  to  produce  a system  copy  library  coi - 
plete  with  the  text  to  be  copied  into  source  proarams.  This  text  is  provided  on 
the  Population  File.  Proper  PPLVP74  control  cards  will  create  a job  that  will 
place  the  data  on  a file  in  accordance  with  the  implementor's  library  format  to 
be  used  by  the  Library  module  tests.  The  two  Nucleus  programs  testing  the 
ACCEPT  verb  also  use  external  data*  located  on  the  Population  File  immediately 
followino  each  program.  If  the  system  allows  ACCEPTing  from  the  incut  device 
that  contains  the  source  program*  the  PPLVP74  processor  can  automatically  place 
the  necessary  system  control  language  in  front  of  and  behind  the  data.  'll 
techniques  are  explained  in  Appendix  A (A. 3). 


2.4.2  Oata-Passing  Sets. 


A method  frequently  used  to  generate  data  is  to  designate  two*  and  some- 
times three*  consecutive  programs  as  a data-passing  set  of  programs.  The  n e f t od 
of  operation  is  for  the  main  program  to  generate  output  data  which  is  saved  ty 
the  system  to  be  used  as  input  to  the  next  program.  The  second  program  :nay*  in 
turn*  generate  output  which  becomes  input  to  a third  prooram.  In  general*  the 
final  program  of  a set  generates  the  most  significant  report*  while  the  earlier 
programs  in  the  set  generate  either  a token  report  or  no  report  at  all.  Kegard- 
less  of  the  content*  no  single  program  of  a data-oassina  set  may  be  run  without 
running*  in  proper  order*  all  of  the  other  proarams  of  that  set. 

2.5  PROGRAM  DOCUMENTATION. 

Documentation  for  each  audit  routine  is  contained  in  the  comment  entries 
of  the  IDENTIFICATION  DIVISION.  Additional  information  about  each  specific  test 
is  contained  in  comment  lines  within  the  PROCEDURE  DIVISION.  The  formal  docu- 
mentation and  detailed  test  specifications  for  the  CCVS  is  availatle  from  the 
National  Technical  Information  Service.  (See  Section  4 of  this  document.) 


2.6  AUTOMATION  OF  THE  AUDIT  ROUTINES  (PPLVP74). 
2.6.1  General. 


The  PPLVP74  processor  is  used  in  order  to  automate  the  handling  of  the 
audit  routines.  Its  function  is  to  create  an  output  file  (file  name  SOURCF- 
C OBOL -PPCGR AMS  also  referred  to  as  "Source  File"  in  this  document  at  ion) * 
which  is  in  a form  acceptable  to  the  user's  computer  as  a system  input  job- 
stream.  Below  are  two  possibilities  which  may  be  used: 

a.  Create  an  updated  system  COBOL  library  file  which  allows  each  of 
the  proarams  to  be  compiled  and  executed  by  means  of  the  system 
external  control.  Updating  or  altering  of  the  source  COBOL  cro- 
urams  may  be  done  either  bv  the  system's  updating  utilities  or 
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by  the  VP-Routine. 

Create  a system  input  file  with  all  the  necessary  operating 
system  control  language  to  automatically  compile  and  execute 
the  audit  routines.  Updating  and  changing  of  the  proorams 
must  then  be  accomplished  through  the  use  of  PPLVP74. 

Due  to  the  differences  among  different  compilers  and  operating  systems/ 
the  audit  routines  must  be  modified  to  operate  on  each  system.  In  addition 
to  the  necessary  chanoes  in  the  ENVIRONMENT  DIVISION/  the  format  of  the  modi- 
fied audit  routines  must  conform  to  the  system  requirements  for  COBOL  library 
files  or  system  input  files  (jobstream  files)/  whichever  is  used.  Tne  file 
of  modified  audit  routines/  called  the  Source  File/  is  built  by  reading 
the  necessary  control  cards  and  environment  information  as  data  into  tne 
PPLVP74  processor/  which  in  turn  merges  this  information  with  the  informa- 
tion contained  on  the  Population  File. 

To  facilitate  the  use  of  the  Population  File  tape  and  allow  for  the 
various  input/output  requirements  among  systems/  the  PPLVP74  is  designed 
to  do  its  own  blocking  and  deblocking.  The  tape  as  received  will  consist 
of  thirty  80-character  records  per  block  or  2400  characters  ter  record . The 
contents  of  the  tape  file  can  be  placed  ort  a mass-storage  device  as  a sequen- 
tially organized  file  if  desired. 

2.6.2  Monitor  and  Update  Sections. 

The  processing  done  by  the  PPLVP74  can  be  divided  into  two  distinct 
stages.  These  two  stages  correspond  to/  and  are  controlled  by/  the  two 
groups  of  cards  which  comprise  the  card  input  to  the  PPLVP74  processor.  The 
first  group  of  cards  comprise  the  Monitor  Section  control  cards  and  the  sec- 
ond oroup  are  the  Update  Section  control  cards.  The  two  stales  are  called 
the  Monitor  Stage  and  the  Source  File  Creation  Stage/  respectively. 


2.6. 


General  Format  of  the  PPLVP74  Control  Deck. 


Three  control  cards  must  be  present/  reaardless  of  the  other  cards  in 
the  deck.  Their  formats  are  given  below/  in  the  order  they  are  to  appear  in 
the  deck: 


0 1 2 
1 234567891)1234567890 


(Monitor  Control  Information) 

♦END-MGNITCR 
♦BEGIN- UPDATE 

(Update  Control  Information) 

♦END-UPDATE 

2.6.4  Monitor  Section  Control  Cards. 

Monitor  Section  control  cards  describe  the  parameters  that  will  be  used 
during  the  Source  File  Creation  Stage.  Purina  the  Monitor  Stage/  the  PPLVP74 
reads  these  cards  one  at  a time/  sets  looical  switches  as  a result  of  a few  of 
them/  and  builds  tables  with  information  contained  on  the  others.  All  Monitor 
Section  cards  must  precede  the  *EKD-MONITOR  card  and  any  updates  to  the  pro- 
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grams  must  follow  the  * BE  61 N- UP D A TE  card  (in  order  of  appearance  in  the  popula- 
' t ion  file)  and  before  the  *E  N D-UPD  A T E card. 

2.6.5  Update  Section  Control  Cards. 

£ 

The  Update  Section  control  cards  are  read  durino  the  Source  Pile  Crea- 
tion Stage.  They  are  used  to  modify  the  audit  routines  as  they  are  being 
written  on  the  Source  File#  and  to  effect  temporary  modifications  to  the  para- 
meters described  by  the  Monitor  Section  cards.  All  Update  Section  cards  must 
be  placed  between  the  *FiEGI N-UPD AT E and  *FND-UPDATF  cards. 

| I j 

No  PPLVP74  control  statements  are  ever  placed  between  the  *EhD-M)NITCP 
and  *8EG I N-UPDATE  cards  or  after  the  *FND-UPDATF  card. 


2.7  VP-ROUTINE  FILES 

2.7.1  SOUR CE-COBOL-PROGR AMS  (Source  File) 

The  SOUR C E -C Ob 0L-PR06R AM S file  is  an  output  file  that  contains  the 
selected  programs  which  have  been  updated#  the  assignment  replacements#  and  the 
job  control  language.  It  has  the  following  chacteristics: 

o Record:  SO  or  72-character  image, 

o Blocking:  Unblocked, 

o Label:  Omitted  (unlabeled), 

o File  Mark:  After  last  program  of  the  file. 


This  file  may  be  blocked  by  so  specifying  in  the  File  Section  of  the  D P L V P 7 4 
source  program.  It  is  permissible  for  this  file  to  reside  on  a device  other 
than  tape. 

2.7.2  UPDATED-POPULATI ON-FILE 

UPD A T E D-POPULA TON- F I LF  is  an  output  file  that  is  used  durino  maintenance 
to  create  a new  version  of  the  CCVS.  Its  format  is  the  same  as  that  of  POPULA- 
TION-FILE# given  below.  During  a validation#  it  is  to  be  regarded  as  an  unused 
scratch  file. 

2.7.3  PRINT-FILE 

PRINT-FILE  is  an  output  file  that  gives  a listing  of  the  control  cards 
and  the  selected/updated  programs.  The  amount  of  information  contained  in  the 
PRINT-FILE  can  be  controlled  by  the  *L  I S T card  (paragraph  A. 2. 13). 

2.7.4  POFULA  T I ON  - F ILF 


POPULATION-FILE  is  an  input  file  that  contains  all  of  the  programs  in 
the  source  program  library.  The  file  has  the  following  characteristics: 


o Record: 

o Blocking: 
o Label: 
o File  Mark: 


Thirty  RO-character  records  per  block 
giving  a 2400  character  record. 
Deblocking  is  done  by  the  program. 
Unlabeled  (omitted). 

After  last  program  on  the  file. 
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It  is  permissible  for  this  file  to  reside  on  a device  other  than  tare  . 


2.7.5  CONTROL-CARD-FILE  (PPLVP74  control  input). 

CONTROL-C A R D- F I L E is  an  input  file  used  to  supply  user  information  and 
instructions  to  the  PPLVP74  processor/  plus  any  updates  to  the  Population  File 
which  might  be  needed.  The  file  is  unlabeled  and  described  as  80  characters 
per  record.  This  file  can  be  asigned  to  whatever  input  device  is  a np r op r i at e . 
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3.  CCVS74  3.0  SOURCE  PROGRAMS 

Version  3.0  does  not  contain  all  of  the  proorams  that  will  finally  comprise 
the  1974  CCVS.  This  is  due  to  two  reasons. 

(1)  The  existing  programs  wilt  be  enhanced  and  additional  proorams 
produced  as  more  experience  is  oained  and  more  COBOL  74  compilers 
become  available. 

(2)  There  are  some  areas  of  the  COB^L  74  technical  specifications 
which  require  interpretation  before  any  meaningful  test ino  can 
be  ac comp l i s he d. 

The  followina  list  shows/  by  module#  the  programs  and  other  system  software 
provided  in  Version  3.D  of  CCVS74.  The  name  given  is  referenced  as  described 
under  program  selection  in  the  documentation  for  the  PPLVP74  processor.  (Paren- 
thesized names  need  not  be  selected.  These  programs  are  automatically  selected 
when  the  proceeding  "main*'  program  is  selected.  These  programs  involve  the 
passing  of  data  files  and/or  CALLing  programs.)  The  individually  named  proqrems 
can  be  selected  for  process ino  by  the  PPLVP74  processor  through  the  use  of  a 
"+”  card  (e.g.#  +DB101)  or  an  entire  level  or  module  can  be  selected  throuqh 
the  use  of  an  *ENVIR0NMENT  card  (e.g.#  ^ENVIRONMENT  DB100  or  ★ENVIRONMENT 
DB10G#  DB2C0#  IC100...).  See  Appendix  A.?#  Source  Prooram  Selection  (Monitor) 
Section)  for  more  information. 

The  proqrams  whose  names  contain,  the  number  "4"  as  the  third  character  are 
designed  to  be  used  to  determine  the  degree  to  which  a COBOL  Compiler  meets 
the  flagging  requirements  defined  in  FIPS  PUB  21-1 . These  programs  have  a 
dual  function  in  that  they  also  contain  tests  which  make  up  the  COBOL  Compiler 
Validation  System. 

3.1  System  Software  (Not  part  of  CCVS74). 

ASVP0+  PTLVP74  (HYPO) 

ASVP9  PPLVP74 

3.2  Communication  Module 

Withheld  from  CCVS74  3.0 

0*431  (for  flagging  purposes  only) 

3.3  Debug  Modu  le 

DB1D1  throuqh  DP105  (★ENVIRONMENT  DElUO) 

DB421  through  DR422 

DP201  throuon  DB204  ( *EN V I RONME N T DP200) 

0643  1 

3.4  Inter-program  Communication  Module 

IC101  (★ENVIRONMENT  IC100) 

( IC1U2) 

I C 1 03 

(I  Cl  04) 

( I C 1 05) 


! 
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I C 1 0 6 

( I C 1 07) 

IC10« 

( I C 1 09 ) 

(IC110) 

(IC111) 

IC11? 

( I C 1 1 3) 

I C 1 1 4 

( I C 1 1 5 ) 

IC1 16 

( I C 1 1 7 ) 

(IC1 IP) 

I C 1 1 9 

( I C 1 20 ) 

I C 1 2 1 

CIC122) 

( I Cl  23) 

I C 42 1 

( I C 4 22  ) 

Id  51  + (*ENVIRONKFNT  ICOOO) 

( I C 1 52 ) ♦ 

IC2C1  (‘ENVIRONMENT  IC200) 

(IC202) 

IC203 

(IC2C4) 

( I C 205 ) 

(IC206) 

IC207 

(IC208) 

IC431 

( IC432) 

3.5  Indexed  1-0  Module 

1X101  (‘ENVIRONMENT  1X100) 

(1X102) 

(1X103) 

1X104 
IX 1 C 5 

(1X106) 

1X107 

1X201  (‘ENVIRONMENT  1X200) 

(1X202) 

(1X203) 

1X204 

1X205 

1X206 

1X207 

IX2C8 

1X209 

1X210 
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1X211 
I X A A 1 
IXAA2 

3.6  Library  Text 

ALTL1 
AL  TLB 
<P001 
<P0G2 
<PC03 
<POOA 
<POG  5 
KP006 
<P007 
<P008 
<1  FDA 
<1  PRA 
<1PRB 
<1P01 
<1  SE  A 
<1W<A 
<1  W<B 
<1W<  Y 
<1  W<  Z 
<1  W01 
<1WG2 
K 1 W 0 3 
It  1 WO  A 
<101  A 
<2PR  A 
K2SE  A 
<3FCA 
K3FCB 
<3IOA 
<3I0B 
<30C  A 
<3SC  A 
<3SM  A 
<3SNR 
<ANTA 
<5SD  A 
<5SDD 
<501  A 
<5018 
<6SC  A 
<7 SE  A 

3.7  Library  Rodule 

LB  1 P 1 

(LB1P2) 

LB  1 0 3 

(LBlOA) 

LP105 


( ‘ENVIRONMENT  <0000) 


(♦FNVIRONMFNT  LP100) 
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LB  1 06 
LB  1 0 7 
LB421 

LB2C1 

(LP 202) 

LB203 

(LB204) 

LB  2 05 
LB2C6 
LB207 
LB  44  1 

3.E  Nucleus  Nodule 

NC1G1  through  NCI  20 
NC151  through  NC165+ 
NC201  throuoh  NC21° 
NC431 

3.9  Relative  1-0  Module 

RL101 

(RL102) 

(RL103) 

RL104 

RL1Q5 

RL106 

RL1C7 

RL106 

(RL1G9) 

RL421 

RL1 51+ 

( RL1 52) + 

(RL 1 53  ) + 

RL201 

(RL202) 

( RL203) 

RL2C4 

RL205 

RL431 

3.10  Report  Writer  Module 

RW1  01 

RU102 
RW103 
Rwl  04 

3.11  Segmentation  Module 

SG101  through  SG106 
SG421 


(★ENVIRONMENT  LB200) 


(★ENVIRONMENT  NC100) 
(★ENVIRONMENT  NC000) 
(★ENVIRONMENT  NC200) 


(★ENVIRONMENT  RLlOO) 


(★ENVIRONMENT  Rl.000) 


(★ENVIRONMENT  RL200) 


(★ENVIRONMENT  SGI  CL1  ) 
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SG201  through  SG2U4 
SG441 

3.12  Sequential  1-0  Module 

SGI  01  through  SQ 1 1 1 
SG112 

(SO  1 1 3) 

SG114  through  SQ117 
SG1 1 8 

(SG1 19) 

(SGI  20 ) 

SG121 

SG151  through  SQ153+ 

SG2C1 

SQ202 

SG203 

(SQ2G4) 

SG2C5 

SG206 

SG2L7 

(SQ208) 

(S0209) 

SQ210 
SG211 
SQ212 
SG  2 1 3 
SQ214 
SG215 
SG216 
SG217 
SG218 
SG21° 

S G 2 2 0 
SG431 


( ♦ENVIRON1''  E N T SG2C0) 


(★ENVIRONMENT  SQ10C) 


(★ENVIRONMENT  SQOGO) 


(★ENVIRONMENT  SG2C0) 


3.13  Sort -Merge  Nodule 

ST1G1 

(ST102) 

(ST1G3) 

ST1G4 

(ST1C5) 

ST  1 06 

(ST107) 

ST1C8 
ST  109 

(ST110) 

( ST  1 1 1 ) 

ST  1 1 2 

(ST113) 

(ST114) 

ST  1 1 5 


(★FNVIRONMFNT  SHOD) 
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CST116) 

(ST117) 

S T 1 1 £ 

ST431 

(ST432) 

(ST433) 

(ST434 ) 

ST2U1  tbrouah  ST216 
ST441 

(ST442) 

(ST443) 


(‘ENVIRONMENT  ST200) 


3.14  Table  Handling  Module 


TH 1 0 1 
TH1  51 
TH201 
T H 43  1 


t hrouah  THl 1 1 
t hrouah  T Hi  5 2 + 
t hrouoh  TH221 


(‘ENVIRONMENT  TH100) 
(‘ENVIRONMENT  TH000) 
(‘ENVIRONMENT  TH20GT 


3.15  Environments  for  Flagging  Routines 


There  are  four  environments  defined  for  the  flagging  routines.  One 
environment  contains  all  of  the  flagoing  routines  and  three  environments 
group  the  routines  according  to  their  Federal  level.  The  environment 
identification  and  the  routines  each  contain  are: 


ENVIRONMENT 


CONTENTS 


FL4C0 


All  flaoaino  routines 


FL420 


l ow  T n t e rmed  i a t e level  routines. 

(DP421/  1(421/  IC422/  L^421/  RL421/  SG421) 


F L 430 


H i r,h- 1 n t e r med  i a t e level  routines. 

( C M4 31 / DP431 / I C 431  / IC  432/  NC431,  KL431/ 
SG431 / ST431 / S T 4 3 2 / ST433/  ST434/  SG431/ 
TH431  ) 


FL440 


High  level  routines. 

(1X441/  SO  4 4 1 / ST441,  ST442/  ST443) 


‘These  programs  collectively  represent  the  programs  necessary  to  validate  the 
U.S.  Navy  HYPC-C0B0L  for  minicomputers.  This  subset  of  COBOI.  74  was  produced 
by  the  U.  S.  Navy  in  the  absence  of  any  other  available  specifications  pro- 
duced specifically  to  permit  a small  subset  of  C G r;*  0 1.  to  be  used  cn  a minicom- 
puter and  at  the  same  time  take  advantage  of  the  technology  exhibited  by  the 
average  general  purpose  minicomputer.  The  H YFO-C AH0L  technical  language 
specifications/  and  the  detailed  test  specifications  can  be  obtained  fro ft  the 
National  Technical  Information  Service.  See  Section  4 of  the  Users  Guide. 
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4.  CCVS74  DOCUMENTATION 


Documentation  and  detailed  test  specifications  for  the  full  1974  CCVS  has 
been  available  from  the  National  Technical  Information  Service  (^TIS)  since 
December  1974.  A complete  list  of  the  Test  Specifications  and  the  other 
CCVS74  products  follows.  The  leftmost  codes/  in  each  case  beginning  with 
the  letters  "ADA"/  are  the  NTIS  accession  (order)  codes. 


1974  CCVS  TEST  SPECIFICATIONS 


AD AQ02792 

USN-CCVS-74-VOL-01 

NUCLEUS  Level  1 

115.25 

A D A 0069  2 1 

USN-CCVS-74-V0L-02 

NUCLEUS  Level  2 

$12.50 

ADA 0020 8 4 

USN-CCVS-74-V0L-03 

TABLE  HANDLING 

1 

7.50 

ADA019757 

USN-CCVS-74-VOL-04 

SEQUENTIAL  1-0 

$ 

3.75 

AD A003072 

USN-CCVS-74-VOL-05 

PFLATIVE  1-0 

$ 

3.75 

ADA  007554 

USN-CCVS-74-V0L-06 

INDEXED  I -0 

$ 

5.25 

ADA  0023?  4 

USN-CCVS-74-VOL-07 

SORT-MERGE 

$ 

3.75 

ADA0D2385 

USN-CCVS-74-V0L-09 

SEGMENTATION 

$ 

4.25 

AD A 00 238 6 

USN-C CVS-74-V0L-1 0 

LIBRARY 

$ 

4 .25 

A D A 030  46 1 

USN-C  C VS-74-V0L-1  1 

DEBUG 

3.25 

ADA002975 

USN-CCVS-74-VGL-12 

I NTER-PROGR AM  COM*. 

$ 

3.75 

ADA0G2388 

USN-C CVS-74-VOL-1  3 

communication 

5 

4 .25 

VERSION  3 

.0(0 

ADA036174 

CCVS74  V3.0  User's 

Gu  i de 

$ 

12.00 

ADA03M77  CCVS74  Vi.  0 Population  File  (Tape) 


$500.00 


( * ) T he  V 3.0  accession  numbers  were  not  available  when  this  document  was 
prepared.  These  are  the  V2.0  accession  numbers  and  the  replacement 
documents  (V3.0)  can  be  obtained  by  referring  to  these  accession  numbers, 


HYPO-C0BGL  COMPILER  VALIDATION  SYSTFr’ 


ADA  01891 6 
ADA02491 5 
ADA024R1 4 


HCCVS  Language  Specification' 
HCCVS  Test  Specifications 
HCCVS  Population  File  (TAPF) 


$ 6.25 

111.75 

1200 .00 


The  mailing  address  for  NTIS  is: 


National  Technical  Information  Service 
IJ.  S.  Department  of  Commerce 
5285  Port  Royal  Road 
Springfield/  Virginia  22151 
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5.  C CVS  74  X-Cards 

X-cards  provide  the  ability  to  transport  the  audit  routines  to  different 
computer  system  environments.  The  list  below  explains  the  function  of  every 
X-nn  number  substitution  currently  in  use  in  the  audit  routines  making  up  the 
1974  COBOL  Compiler  Validation  System  (CCVS).  A user  running  the  complete 
set  of  audit  routines  must  create  an  X-nn  card  to  correspond  to  every  active 
number  in  the  list. 

If  there  is  a period  C.)  in  the  source  proaram  following  the  XXXXXnnn  card 
specification#  a period  will  follow  the  substituted  v-card  data  in  the  source 
produced  by  the  running  of  the  VP-Routine. 


SOUPCF-CONPUTER , 
XXXXX0S2 . 


In  audit  routine  source; 
note  period  in  original 


source  . 


SOURCE-CONPUTER  , 
PR AND-X . 


X-82  BRAND-X. 


Final  source  after  PPLVP74 
substitution;  period  follows 
substituted  source. 

X-card  specification  for 
this  example;  not*5  period 
follows  the  data  to  be 
subst ituted. 


If  there  is  no  period  in  the  source  program  following  the  XXXXXnnn  card 
specification#  there  will  be  no  period  followino  the  substituted  >-card  data 
in  the  source  produced  by  the  execution  of  the  PPLVP74  processor. 


VALUE  OF 
XXXXX074 
I S 


In  audit  routine  source; 
no  period  in  oriqinal 
source. 


VALUE  OF 

ID 

IS 

X-  74 


Final  source  after  VP- 
routine  substitution;  no 
period  in  substituted  source. 

X-card  specification  for 
this  example;  note  period 
follows  the  data  to  be 
subst  ituted. 


The  X-card  (also  called  the  "X-nn  card")  is  used  to  ^nter  the  implementor 
or  user-defined  word  or  phrase  into  the  F NVI RONttE NT -T ABLF . The  X-card  format 
is  as  follows: 


0 1 2 3 

1234567P9U1234567H9U1234567K9U 

X-nnmm  implementor  or  user-defined  word# 


literal#  or  phrase. 


Columns  1 and  2 contain  "X-".  The  number  "nn"  is  the  same  as  its  counterpart 
on  the  XXXXXnnn  card.  The  "mm"  represents  the  starting  position  in  the  replaced 
source  image  in  which  the  source  program  will  be  olaced.  (See  Appendix  A. 
for  further  information  regarding  X-cards  and  the  options  available  for  them.) 
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The  implementor  or  user-defined  word  or  phrase  may  appear  anywhere  in  columns 
b throuph  68.  Each  implementor-defined  or  user-defined  word  or  phrase  must  be 
terminated  with  a period.  Enclose  all  nonnumeric  literals  in  quotes  (">  termi- 
nated by  a period.  During  the  replacements  column  8 becomes  column  12  in  the 
COBOL  program  generated  by  the  PPLVP74  processor.  Column  9 becones  13/  ... 
column  68  becomes  72.  The  PPLVP74  processor  uses  nn  as  an  occurrence  number 
when  storing  (and  later  retrieving)  the  implementor-defined  word  or  phrase  in 
the  ENVIRONMENT-TABLE. 

The  user  must  remember  to  create  corresponding  A-nn  (and  possibly  APnn  and 
AOnn)  cards  where  needed.  This  is  only  required  for  files  which  require  job 
control  language  to  be  generated  to  assign/  pass/  and/or  delete  then..  (This 
should  only  apply  to  X-cards  X-01  thru  X-58.)  Some  system  files  used  in  data 
passing  sets  of  audit  routines  must  be  formally  "purned"  to  avoid  confusion  -hen 
the  same  file  name  is  used  for  subsequent  routines. 

In  the  source  procrams/  X-cards  for  substitution  are  in  the  form, at 
XXXXXnnn.  In  the  environment  lists  for  A-cards  and  X-cards/  the  format  is  A-nn 
and  X-nn  respectively.  The  source  card  X X X X X 00 1 corresponds  to  v-01/  A-01  (and 
perhaps  APG1  plus  AD01).  If  for  some  reason  a system  requires  a user  to  expand 
the  X-card  list  beyond  X -99 / use  the  format  X XX  XX  mm m for  the  X-cerd  number  mirm 
in  the  source  program  and  a corresponding  X-card  of  Xmmm  in  the  list  of  environ- 
mental substitutions.  For  example/  if  the  list  needed  to  be  expanded  through 
the  number  169/  use  XXXXX169  in  the  source  program  and  X 1 69  in  the  X-card  list. 


A 


x-i» 

X -1  9 
X -20 

X -21 
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X -c  a rd 

Function 

F xpl anation 

x -01 

Tape  name  1 

Implementor-name 

i n 

A SSI  GN 

TO 

x -02 

Tape  name  2 

clause  of  SFLFCT 

st  at  ement ; 

e.g.e  S r L F C T file 

-name  A SS  I 

6 N T r 

X -03 

Tape  name  3 

XXX XX001  . 

y-01  UNISERVO  TAFE 

-1  . 

X-04 

Tape  name  4 

A -01  3 A SG*  T TAPF-1 

.*8C/1 

x -05 

Tape  name  5 

X -06 

Multireel  name 

1 

Implementcr-name 
clause*  3 repls. 

i n 

ASSIGN 

TO 

X -0  7 

Multireel  name 

2 

Imrlementor-name 
c l ause/  2 reels. 

i n 

ASSIGN 

TO 

X-08 

bu 1 1 i f i l e-r  ee  l 

name 

1 

X 

1 

O 

o 

y u l t i f i le-reel 

name 

2 

x-io 

>ult ifile-reel 

name 

3 

Implementor-name 

i n 

ASSIGN 

TO 

clause  of  SELECT 

statement; 

X - 1 1 

vu l t i f i le-reel 

name 

4 

all  files  are  assignee  to  the 

same  physical  reel  of  tape. 

X -1  2 

Ault  ifi le-reel 

name 

5 

X-1  3 

A ultifi le-reel 

n am  e 

6 

X -1  4 

Sequent i a l mass 

storage 

name 

1 

Implementor-name 

i n 

ASSIGN 

TC 

X -1  5 

Sequential  mass 

storage 

name 

2 

clause  of  SFLFCT 

st  at  ement 

9 

organization  is 

sequent i a l 

m 

X - 1 6 

Sequent i al  mass 

storage 

name 

7 

Implementor  name 

i n 

ASSIGN 

TC 

X -1  7 

Optional  multireel 

tape 

name 

3 

clause  of  SFLFCT 

OPTIONAL 

Optional  sequential  mass  storage 
name  4 


I'Aulti-unit  name  1 
f*u  It  i-un  it  name  ? 

Relative  file  name  1 


statement  for  a three  reel  file; 
this  file  should  not  be  oresent 
at  execution  time. 

Implementor-nair. e in  ASSIGN  TO 
clause  of  SELECT  OPTIONAL 
statement;  this  file  should  not 
be  present  at  execution  time. 

Implementor-name  in  ASSIGN  TO 
clause  of  SFLFCT  statement;  3 
mass  storaae  units  each  for 
X-19  and  X-20;  used  with  CLOSF 
UNIT  statements. 


25 
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X -22  Relative  file  name  2 

X-23  Pelative  file  name  3 

X-2A  Indexed  file  name  1 

X-25  Indexed  file  name  2 

X-26  Indexed  file  name  3 

X-27  Sort  file  rtdvp  1 

X-2P  Sort  file  name  2 

X-29  Sort  file  name  3 

X-30  - X- A3  NOT  USED 

System- name  for  indexed 

file  name  1 Impl^mentor-name  for  those 

systems  which  require  an 

System-name  for  indexed  additional  system  interface  for 

file  name  2 the  indices  in  an  indexed  file 

( OP T 1 0 J). 

System-name  for  indexed 
tile  name  3 


X-A 7 Copy  library  name  1. 

X-AS  Copy  library  name  2.  Referenced  in  COPY  statement  for  alternate 

library. 

X-A9  Sequential  file  for  a Report  File  (Feport  Writer) 

X-50  Sequential  file  for  a Report  File  (Report  Writer) 

X - 5 1 Switch  name  1 Implementor-name  in  SPECIAL- 

ISES statement;  this  switch 
should  be  ON  at  execution  time. 

X-52  Switch  name  2 Implementor-name  in  SPECIAL- 

fv  A!"  PS  statement;  this  switch 
should  be  OFF  at  execution  time. 

X-53  RERUN'  statement  Complete  entry  in  the  1-0- 

C0NTR0L  paragraph;  e.g.* 

RFRUN  ON  Sfl-FRR  FVFRY  10  RECORDS  OF  RR-FS1. 

SQ-FRR  is  a file  provided  in  each  of  the  audit  routines 
which  use  the  rerun  facility.  It  is  defined  but 
not  referenced  in  the  Procedure  Division.  It  is 
strictly  for  use  in  the  Rerun  statement  if  a 

26 


w 


X -AA 

X-A5 

X -A6 


Implementor-name  in  ASSIGN  TO 
clause  of  SELECT  statement 
for  sort  files. 


Implementor-name  in  ASSIGN  TO 
clause  of  SELECT  statement; 
organization  is  indexed 
(See  X-AA/  X-A5  and  X-A6). 


Implementor-name  in  ASSIGN  TO 
clause  of  SELECT  statement; 
organization  is  relative. 
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file-name  option  is  required  by  the  implementation 


is  the  file  which  is  accessed  in  the  Drocedure  Division 
It  is  the  same  name  in  each  proqram  which  audits  the 
Rerun  facility.  Rerun  information  is  written  on  S'J-ERR 
whenever  10  records  of  RR-FS1  have  been  processed. 


System  punch 


Implementor-name  in  ASSIGN  TO 
clause  of  FFLFCT  statement. 


System  printer 


Implementor-name  for  output 
listings  in  ASSIGN  TO  clause 
of  SFLFCT  statement. 


DISPLAY  mnemonic  name 


I mp l ement o r -name  in  SPECIAL 
N AM  F S state men  t . 


ACCEPT  mnemonic  name 


I mp l ement o r-na me  in  SpECIAL 
f'.'AfFS  statement. 


System  input  device 


Implementor-name  in  ASSIGN  TO 
clause  of  SELECT  statement. 


A l phabet-name 


Imp l ement o r -n ame  to  be  use^  as 
an  alphabet-name. 


Not  used 


Not  used 


Not  used 


A 51  character  alphanumeric  literal  containing  50  of  tfe  characters 
of  the  COBOL  character  set.  The  characters  are  in  ascending  order 
according  to  the  native  collating  sequence;  the  quotation  mark  (") 
is  excluded  and  the  currency  symbol  (t)  is  repeated  twice.  The 
literal  is  bounded  by  quotation  marks  and  terminated  by  a oeriod. 

For  a system  whose  native  collating  sequence  is  ASCII#  the  following 
literal  is  used: 


/01  2345678  9; < = >ABCDEF  GH I J PI 3N OPQ R S TO VWX Y 7 


i % ( ) * + 


A 51  character  alphanumeric  literal  made  uo  of  any  51  characters. 
The  characters  are  in  descending  order  according  to  the  native 
collating  sequence.  The  literal  is  bounded  by  quotation  marks  and 
terminated  by  a period. 


Number  of  records  nenerated  and  sorted  in  ST115-ST117 
validation  this  four  digit  integer  must  be  9POO. 


Not  used 


Memory  size  in  words 


Implementor  supplied  inteaer 
specified  in  the  MEMORY  517 F 


X-68 
X -69 

X -70 
X -71 
X -72 
X -73 

X-7  4 


X-8? 


X-83 
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Memory  size  in  characters 


clause  of  the  OF J F C T- COMPUTE R 
par  aor  aph . 


Additional  VAL’Jt  OF  phrase  for  each  ED  containing  a VALUE  OF 
phrase.  This  imaae  is  optionally  generated;  see  *0PTF  card. 


Not  used 

VALUE  OF  phrase  ?. 

VALUE  OF  phrase  7 
Implementor-name  for  top  of  page 

VALUE  OF  Implementor-name 


(See  X-74  . ) 

(See  X-74.) 

Implementor-name  defined  in 
SPFCIAL-NA^FS  parauraoh/ 
associated  with  mnemonic-name 
in  WRITE  ADVANCING  statement. 

In  VALUE  OF  clause  for 
standard  labels;  e .g  . / 

VALUE  OF 
XX XXX 074 
IS 

XXXXX075  (or  XXXXX076/  U7?/ 
078/  079/  080/  071/ 
0 7?) 


X -75 

VALUE 

OF 

phrase 

1 

(See 

X-74.) 

X-7S 

VA  LUE 

OF 

phrase 

? 

(See 

X-74  .) 

X -77 

VALUE 

OF 

phrase 

3 

(S^e 

X-74 . ) 

X -7*» 

VALUE 

OF 

phrase 

4 

(See 

X-74  .) 

X-7  9 

VALUE 

OF 

phrase 

C 

(See 

X-74.) 

X-B0 

VALUE 

OF 

ph r ase 

6 

( S e e 

X-74  . ) 

X -8  1 

An  eight  character  alphanumeric 
characters  which  are  contained 

literal  containing  eight  unique 
in  the  native  character  set  but 

not  contained  in  the  51  character  COBOL  character  set.  The  literal 
is  bounded  by  quotation  marks  and  terminated  by  a period. 


Source  computer  name 

Object  computer  name 


Implementor-name  defined  in 
SCURCE-COdPUTFP  paragraph. 

Implementor-name  defined  in 
0p J E C T- COPPU T FR  paraaraph. 


X -8  4 LABEL  records  option  for  the  printer  destined  file  used  by  each  of 

the  audit  routines.  If  not  specified/  OMITTED  will  be  assumed. 

If  the  word  STANDARD  appears/  additional  information  may  also  be 
required  in  this  entry.  (i.e./  VALUF  OF/  CODE-SET  IS  /...) 

The  following  example  is  provided  in  order  to  explain  X -P  5 throuah  X-38. 

?8 
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population  file 


f i le-name-1 

VALUE  OF 

XXXXX074 

I S data-name-1 

XXXXXC35 

IS  data-name-2. 

f i le-name-2 

VALUE  OF 

XXXXX074 

IS 

XXXXX075 
XXXXX085 
IS  data-name-3. 
dat  a-name-1 
X X X X X 086 . 
data-name-2 
XXXXX087. 
data-name-3 
X X X X X 088  . 


RESOLVED  SOURCE  P D 0 0 R A ‘ ' 


F D f i le-name-1 
VALUE  OF 
FILE-ID 

IS  data-name-1 
RFTENTION-DATE 
IS  data-name-?. 

F D f i le-name-2 
VALUE  OF 
FILE-10 
IS 

"FILE  2" 

RFTFNTION-DATE 
IS  data-name-3. 

01  data-name-1 

PIC  X ( 6)  VALUE  "FTLE  V 
01  data-name-? 

PIC  X ( 6 ) VALUE  "770131' 
01  data-name-3 

PIC  X ( 6 ) VALUE  "770228' 


VALUE  OF  I mp l ement or -name 


PICTURE  description  and  VALUE 
clause 


PICTURE  description  and  VALUE 
clause 


PICTURE  description  and  VALUE 
c lause 


Second  i mp l emen t o r -na me  in 
t h » VALUE  OF  clause  in  F i l “ 
Description  entry  lor  standard 
labels. 

Data  Description  entry  for  data- 
name-1  associated  with  VALUE  OF 
clause  in  File  Description  entry 

Data  Description  entry  for  riata- 
name-2  associated  with  VALUE  OF 
clause  in  File  Description  entry 

Data  Description  entry  *or  data- 
name-3  associated  with  VALUE  OF 
clause  in  File  Description  entry 


y 
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6.  CCVS74  Option  Switches 

The  concept  of  optional  code  within  the  proqrairs  making  up  the  CCVS  permits 
the  elimination  or  inclusion  of  source  code  whose  implementation  is  not  reauired 
in  order  to  conform  to  the  COBOL  specifications.  This  enables  the  use  of  pro- 
grams containing  these  optional  elements  without  having  to  make  urdates  to  the 
source  program. 

The  functions/languaqe  elements  which  can  be  included  or  eliminated  through 
the  use  of  option  switches  include  the  VALUE  OF  clause  associated  with  mass 
storage  files*  switch  status  tests*  CLOSE  REFL  statements*  CLOSE  UNIT  state- 
ments* and  CPFN  ...  REVERSED  statements.  Additionally*  the  use  of  an  ootion 
switch  can  cause  coding  to  be  generated  to  dump  all  files  used  in  the  I -0  pro- 
grams to  the  printer  for  examination  of  their  contents*  and  control  the  type 
of  WRITE  statement  used  for  printer  destined  file  created  bv  each  audit  rou- 
tine. The  format  for  the  *0PTn  control  card  is  shown  in  A. 2. 16. 

For  a given  switch  there  are  two  or  more  choices.  If  there  is  no 
indication  that  a switch  can  be  blank*  then  blank  constitutes  an  invalid 
switch  setting.  This  is  not  detected  by  the  PPLVP74  processor  but  will  affect 
the  source  programs  which  are  dependent  on  the  switch  for  proper  source  code 
generation.  The  defaults  (those  switch  settings  which  are  assumed  for  use 
with  CCVS74  by  the  PPLVP74  processor  and  need  not  be  set)  are  indicated  in  the 
following  table.  If  no  deviations  are  necessary  *rom  the  default  switch  set- 
tings then  no  *0PT  cards  need  be  present. 

The  following  meanings  are  attached  to  each  number/letter  combination  for 
the  1974  CCVS.  Switches  1 through  4 are  also  relevant  to  the  196F  CCVS. 

Switch  Number  Value  Comment 


1 A 


n 


2 E 


F 

3 H 


I 

4 L 


t* 


6 X 


Generate  all  source  statements  referring  to 
system  switches  (Default). 

Delete  all  references  to  system  switches. 


Generate  all  CLOSE  UNIT  statement'. 

(Default) 

Delete  all  CLOSF  UNIT  statements. 

Generate  all  CLOSF  RFFL  statements. 

(Default) 

Delete  all  CLOSE  REEL  statements. 

Generate  all  references  tc  ' RFVFRSED'  in  all 
OPFN  statements  (Default). 

Delete  all  references  to  ’RFVFRSED’  in  all 
OPEN  st  at  ement  s . 

Generate  dump  routine  to  dump  all  files  in  J-D 


30 
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*1 
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7 


t 


' 


9 


111 


1 1 


25 


blank 

Y 


Z 


blank 


C 


blank 


G 


blank 

J 

blank 

T 

U 


w 


audit  routines  in  which  one  or  more  of  the 
tests  failed. 

Eliminate  the  dump  coding  (Default). 

WRITE  statement  for  the  audit  routine  report 
will  use  the  AFTER  PAGE  and  AFTER  integer 
options  (Default). 

WRITE  statement  for  the  audit  routine  report 
will  use  the  AFTER  integer  option  of  the 
WRITE  statement.  The  first  record  written 
will  be  'AFTFR  ADVANCING  15  LINES*  to  provide 
spacing  between  the  Audit  Routine  Report  and 
whatever  may  proceed  the  report  in  the  print 
queue. 

WRITE  statement  for  the  audit  routine  report 
will  use  the  AFTFF.  integer  option  of  the 
WRITE  statement  and  the  headino  will  aopear 
as  the  first  record  after  the  file  is  opened. 

Generate  the  'VALUE  OF  * phrase  for  all  File 
Description  entries  (Default). 

Suppress  the  'VALUE  OF  ' phrase  for  all  File 
Description  entries. 

Generate  the  optional  X card  *or  the  additional 
phrases  of  the  VALUE  CF  clause  in  the  File  Des- 
cription entry.  (X-69) 

X-69  is  suppressed  (Default). 

Generate  the  extra  x -c ard  for  indexed  I -0  files. 

Additional  X-card  is  suppressed  (Default). 

Fstablish  the  R F C n R D KEY  and  'ALTERNATE  <EYS  as 
being  29  characters  for  indexed  files  (Default). 

Fstahlish  the  RFC0PD  KEY  and  ALTFRNATE  <EYs  as 
teinq  no  greater  than  1 characters  for  indexer 
f i l es  . 

FfCTS  debug  code  - not  For  use  during  a 
validation. 


blank 


FCCTS  debug  code  will  be  suppressed  (Default). 


The  following  checklist  can  be  used  to  code  the  options  to  be  used 
during  a validation: 
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*0P  T 1 
*0PT2 
*0PT3 
*GP  T 4 

* OP  T6 
*0PT7 
*0P  T 8 
*0PT9 

* 0 F T 1 0 - 

*0P  Til 


■ 


i 
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7.  CCVS74  IMPLEMENTATION  TECHNIQUES 

The  implementation  of  CCVS74  is  accomplished  in  several  distinct  phases. 
This  discussion  presumes  that  the  executive  routine  provided  will  be  used  in 
implementing  CCVS74.  During  an  official  validation#  the  executive  routine 
must  be  used  to  select  and  prepare  the  source  programs  for  compilation.  The 
information  necessary  to  implement  the  executive  routine  (PPLVP74)  is  con- 
tained in  Appendix  B. 

7.1  SOURCE  PROGRAM  RESOLUTION 

The  first  phase  of  the  implementation  of  CCVS74  is  the  resolution  o* 
implementor  names  within  the  source  program.  Within  the  cronrams  making  up 
C CVS 74#  the  implementor  names  have  been  defined  to  the  extent  that  there  is 
a symbol  which  represents  each  implementor  name.  As  each  of  these  symbols  are 
defined#  they  are  then  used  consistently  t hrouchout  the  rest  of  the  audit 
routines.  These  symbols  are  made  up  of  several  Xs  followed  by  a file  disposi- 
tion inoicator#  followed  by  a three  digit  integer.  Symbols  which  interface 
the  COBOL  program  SELFCT  statement  with  the  operating  system  use  the  filn 
disposition  Can  optional  letter  in  place  of  the  last  X)  to  convey  information 
to  the  PFLVP74  processor.  This  letter#  if  present#  further  defines  the  symbol 
and  is  described  in  the  alphabet-cards  section  of  Appendix  A.  The  symbol  begins 
in  column  12  of  the  source  image  in  which  it  is  defined.  The  rest  of  the  imoe 
is  blank#  thus  when  a symbol  is  located  the  entire  source  image  is  replaced  with 
the  appropriate  implementor  name#  phrase#  or  entry.  For  example#  the  minimum 
Environment  Division  would  be  represented  as: 

*HEADER#C0B0L#NC1C!1 


001200  SOURCE-COMPUTER. 
0013U0  XXXXXD82. 

001400  OBJECT-COMPUTER. 
001500  XXXXX083. 


0G2100  SELECT  PRINT-FILE  ASSIGN  TO 

002200  XXXXX055. 


*END-0F#NC101 

The  executive  routine#  based  on  information  provided  by  the  user# 
replaces  the  symbols  for  the  system  beinn  validated.  The  vehicle  by  wnich  the 
user  describes  the  implementor  defined  aspects  of  COBOL  to  the  P(  LVP74  processor 
is  through  the  use  of  an  ’X'  parameter  card.  (The  X-card  is  described  in 
Section  5 including  the  format  and  the  required  information  for  each  of  the  4 
entries  associated  with  CCVS74.) 

The  format  of  the  X-card  is  as  follows: 

X-nnII  Text  for  X-card 
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The  * X - * identifies  the  parameter  as  an  X-card.  The  nn  is  an 
inteoer  (number)  which  relates  the  X-card  to  a symbol  used  within 
the  audit  routines.  The  II  (optional)  represents  the  start  inn 
position  within  the  source  image  (columns  12-72)  in  which  the 
current  program  name  or  the  current  job  name  will  be  placed  if 
the  resolved  symbol  must  he  uniaue  within  a program#  within  a job 
or  within  the  operating  system.  (If  the  II  is  blank#  nothing 
happens.)  Note  that  column  8 of  the  x-card  represents  column  12 
of  the  replaced  image.  The  text  contained  on  all  X-cards  should 
end  with  a period. 

Using  the  above  example#  the  information  to  resolve  the  above  symbols  for 
a few  systems  could  be  as  follows: 

UNIVAC  1100  Series 

X-cards  Source  Code 


X-55  PRINTTR.  001200  SOURCE-PROGRAM. 

X-82  UNIVAC-1100.  001300  UMVAC-1100. 

X -£ 3 UNIVAC-1  100.  001400  0BJEC  T-C^MPUTER. 

UNIVAC-1100. 


0021 00  SELF  CT  PPTNT-FILF  ASSIGN  TO 

002200  PRINTFR. 

IBM  CS/VS 

X-cards  Source  Code 


X-55  UT-S-PRINT.  001200  SCUR C E -C "MPUT F R . 

X -8 2 IBM-370.  001300  IBM-370. 

X-83  IBM-370.  001400  OP J F C T -C 0MPUT E R . 

001  500  I PM- 370  . 


002100  SELECT  PRINT-FILE  ASSIGN  TO 

002200  UT-S-PRINT. 

HIS  6000  GCCS 

X-cards  Source  Code 


X-55  PI  FOR  LISTING.  001200  SOURCE-COMPUTFR . 
X -82  H6000.  001300  H6C00. 

X-83  h'6000.  001400  OP J r C T-C OKPU TT R . 

001500  H6000. 


r ryZ-,-  . 
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002100  SFLFCT  PRINT-FILE  ASSIGN  TO 

002200  PI  FOR  LISTING. 


DATA  GENFRAL  RDOS 


X-ca  rds 


Source  Code 


X-55  PRINTER. 
X -8 2 C -300  . 
X-83  C-300. 


001200  SOURCE-C^PUTER  . 
001300  C-300. 

001400  OnJECT-CONPUTER  . 
001500  C-300. 


002100  SELF  C T PkINT-FILF  ASSIGN  TO 

002200  PRINTER. 


The  use  of  the  II  (name  feature)  is  described  below.  This  could  be 
useful#  for  example#  if  the  printer  file  for  each  program  had  to  be  unique. 
(In  most  casts#  the  select-name  for  the  printer  and  the  associated  job  con- 
trol language  would  be  identical  for  each  audit  routine.)  Another  use  of  the 
II  feature  is  to  make  mass  storage  files  unique  within  the  operating  system. 
Consider  the  followin'!  example: 


*HEADER#COBOL#SQ1 01 


002100 

SELECT  PRINT-FILE  ASSIGN  TO 

002200 

XXXXXQ55. 

007600 

FD  SQ-FS1 

007700 

LABEL  RFC0RDS  STANDARC 

007800 

VALUE  OF 

007900 

X XX  XX  07 4 

008000 

IS 

008100 

X X X X X 07  5 

*HEADER#C0BQL#Sa102 


003100  SELECT  PRINT-FILE  ASSIGN  TO 

003200  XXXXX055. 


008200  FD  SQ-FS1 


I 


003100  SELECT  PR If  T-FILE 

003200  PRINTER  SQ1C2. 


008200  FD  SO-FD? 

00? 300  LAPFL  RECORDS  STANDARD 

00^400  VALUE  OF 

008500  FILF-ID 

008600  IS 

008700  "F 1LF1 SQ10?" 

In  the  above  example/  the  program  name  (SQ101)  was  placed  in  column  20 
of  the  source  imaae  (002200)  which  replaced  the  symbol  xxxxxi'55.  The  series 
of  Xs  in  the  X-cerd  has  no  effect/  but  is  there  for  purposes  of  clarity  only. 
The  contents  of  the  X-75  control  image  will  result  in  the  current  program  name 
being  placed  in  column  18  of  the  replaced  source  imaae.  A further  example  will 
show  a use  for  the  name  generated  at  the  job  level  rather  than  the  orogram 


x6 
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level.  Assume  that  the  program  SQ101  passes 


subsequent  program. 


The  above  example  could  result  in  a problem  in  the  labelinq  identification  of 
the  file.  If  the  second  program  ( S (3 1 0 2 ) refers  to  the  file  as  'FILE-ID  IS 
"FILE1SQ102"  ' and  the  file  was  created  as  'FILE-ID  IS  "F ILE 1 SQ101 " ' the  labels 


would  not  match.  The  problem  can  be  resolved 


the  following  way: 


X-7513 


FILE2JXXXX' 


The  "J"  in  the  position  where  the  first  character  of  the  name  is  to  be  placed 
causes  the  executive  routine  to  use  the  name  of  the  first  or  main  program  in- 
stead of  the  name  of  the  current  proqram. 

The  followino  input  would  result  in  a slightly  different  output  : 


X -c  a r ds 


Source  Code 


X -5 520  PRINTER  XXXXX.  (Source  Prooram  SQ101) 

X - 74  FILE-ID. 

X-7518  "FILEl J XXXX”. 

0021  CO  SELECT  PRINT-FILE  ASSIGN  TO 

032200  PRINTER  SQ101. 


007600  FD  SG-rgi 

007700  L A P c L RFC3PDS  STANDARD 

007800  VALUF  OF 

00790D  FILE-ID 

008000  * IS 

008100  "FILE1S0101" 


(Source  Pronram  SNIP?) 


003100  SELECT  PRINT-FILE  ASSIGN  TO 

U03200  PRINTER  SQ1U2. 


008200  FD  SG-FS1 

008300  LABEL  PFCORDS  STANDARD 

UUR40Q  VALUE  OF 

008500  FILE-ID 

008600  IS 

008700  "FILE1SQ101” 

Note  that  for  the  printer  file  each  program  will  still  reference  a unique  file 
while  the  name  in  the  VALUF  OF  clause  will  be  the  same  " F ILE 1 SQl HI " for  both 
prog  rams. 
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Further  refinement  of  the  name  placement  function  permits  the  use  of  the 
relative  prooram  number  to  be  used  in  place  of  the  program  name.  This  number 
would  represent  the  relative  position  of  the  source  program  after  it  was 
selected  ( e . g . * if  the  first  and  third  programs  are  selected  from  the  population 
file/  the  first  program  would  be  001/  the  third  program  would  be  002).  If  a *9* 
appears  in  the  first  position  where  the  first  character  of  the  nane  wouM  be 
placed/  a three  digit  integer  would  be  placed  there/  the  presence  of  the  letter 
*C*  will  result  in  a two  digit  integer  being  placed  there.  The  program  number 
cannot  be  used  as  a job  number  as  the  'J*  relates  to  a job  or  main  program  name. 
It  always  represents  the  relative  number  of  the  current  source  program  beino 
processed. 

7.2  OPTIONAL  SOURCE  CODE  SELECTION 

Throughout  the  audit  routines  there  is  source  code  which  has  been 
designated  as  optional/  such  that  through  a control  parameter  to  the  executive 
routine  the  source  code  will  either  be  present  in  the  resolved  source  prooram 
or  eliminated  from  the  source  orogram  altogether.  The  reason  for  this  is  to 
both  expedite  the  validation  process  and  ensure  the  accuracy  of  the  results. 

Some  source  code  is  optional  at  the  implementation  level  (e.g./  the  VALUE  OF 
clause  associated  with  the  File  Description- entry).  Other  source  code  has 
been  designated  as  optional  due  to  anticipated  implementation  problems.  ny 
requesting  the  elimination  of  a given  type  of  source  code/  the  source  code  is 
automatically  excluded  and  does  not  require  the  updating  of  each  source  program 
containing  the  code. 

The  selection  of  the  optional  code  is  covered  in  Section  6 and  needs 
no  further  explanation  here  except  as  a reminder  that  it  should  fe  taken  into 
consideration  when  implementing  CCVS74. 

7.3  JOB  CONTROL  LANGUAGE  R E SOL UT I ON /GE NE R A T I ON 
7.3.1  General  Discussion  on  Alphabet  Cards 

The  alphabet-cards  are  used  to  describe  a skeleton  of  the  Job  Control 
Language  necessary  to  compile  and  execute  the  audit  routines.  The  us°  and 
functions  of  the  alphabet-cards  are  covered  in  Appendix  A of  this  document 
and  particularly  in  section  A. 3 of  Appendix  A.  The  purpose  of  this  discussion 
is  merely  to  present  the  philosophy  of  the  job  control  language  Generation 
features  and  provide  guidelines  and  hints  as  to  the  use  of  these  features. 

— General  Comments  — The  name  placement  feature  for  the  alphabet- 
cards  is  similar  in  nature  and  scope  to  that  described  in  the  x-r?rd  dis- 
cussion in  7.1  above.  The  rules  are  the  same  for  the  alphabet-cards  as 
were  described  for  the  X-cards.  The  integer  contained  in  columns  b and  6 of 
the  PPL VP 74  alphabet-card  represents  the  position  in  the  generated  control  card 
where  the  current  program  name  will  be  placed.  The  presence  of  the  letter 
’J*  in  the  first  position  where  the  name  is  to  be  placed/  results  in  the  main 
program  name  being  used.  The  presence  of  a '9*  or  * C ' number  causes  a three  or 
two  digit  integer  representing  the  relative  program  number  to  be  placed  in  the 
generated  control  card  instead  of  the  proaram  name. 

--  Initial  and  Terminal  (I  K T)  Control  Cards  --  These  control 
cards  are  generated  prior  to  the  first  orogram  selected  (I-cards)  and  aft^r 
the  last  proaram  selected  (T-cards).  These  cards  are  generally  not  uspd  if 
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each  program  cr  series  of  related  programs  is  treated  as  an  indet  indent  job.  If 
all  of  the  programs  to  be  selected  at  a given  tine  are  to  be  treated  as  a single 
job#  then  the  I and  T card  would  be  needed  to  initiate  and  terminate  the  job. 

The  name  placement  feature  is  not  operative  for  these  two  card  types  because 
they  are  only  generated  once  and  are  therefore  uniaue  by  definition.  The 
indicator  column  is  also  not  used  for  the  same  reason. 

and  Endinc"on??8in^?esa^eFe^^a^Stf,glo^rg^(gftePeachT^u,r^ig^7?am 
selected.  The  control  cards#  together  with  the  source  program#  are  written  to 
the  output  file  produced  by  the  executive  routine.  The  orogram  name  placement 
is  available  and  is  used  auite  extensively  for  making  each  job  unique#  or 
uniquely  naming  files  associated  with,  the  source  and  object  programs.  Since 
this  use  is  obvious#  the  main  topic  here  will  be  the  indicator  column  to  con- 
trol the  generation  of  the  Beginning  (P)  and  Ending  (T)  Job  Control  Language. 

If  the  indicator  column  (column  7)  is  blank#  then  the  control  card  is 
generated  for  all  source  programs  which  are  not  subroutines  (CALled  proqrams) 
or  source  library  text  entries.  There  are  certain  job  control  statements  whic^ 
should  be  generated  at  specific  times#  for  example#  the  job  card  should  ho 
generated  only  once  for  each  set  of  programs  making  up  a job.  If  two  programs 
are  related  to  the  degree  that  the  first  passes  data  to  the  second#  they  should 
be  contained  in  the  same  job.  The  indicator  values  ere  presentee  below. 

blank  - Job  control  statements  will  be  generated  before/after 
each  main  source  program  selected  but  not  for  source 
library  text  entries  or  subroutines  (CALLed  programs). 

J - Indicates  that  this  is  a job  level  control  statement 

ana  therefore  the  control  stat°Tient  would  be  generated 
before  the  first  program  in  a series  or  after  the  last 
program  in  a series. 

L - Indicates  that  this  control  statement  should  be 

generated  hefore/after  a library  text  entry.  It  will 
not  be  generated  for  any  other  source  programs  selected. 

T - Indicates  that  the  control  statement  should  be  generated 
only  be  * o re /a f t e r a program  designated  as  a subroutine 
(i.e.  CALLed  program). 

Z - Indicates  that  the  control  statement  should  be  '.-enerated 
on  the  VPWORK1  file  only.  This  permits  the  generation  of 
JCL  statements  on  a separate  file. 

% 

Combinations  - Some  of  the  indicator  values  produce  a combination  of  the 
functions  described  above.  These  values  are  supplied  since  some  control  state- 
ments may  be  applicable  to  both  main  programs  and  and  called  programs#  or  ether 
combinations. 

K - Indicates  the  control  statements  should  be  generated  as 
though  both  the  indicator  ’J*  (job  level  statement)  and 
the  indicator  ' L * (library  text  control  statement)  were 
specified#  i.e.,  a job  control  level  library  control 
statement. 
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S - Indicates  the  control  statement  should  he  generated  as 

though  both  the  indicator  blank,  (non-called  nroorams)  r.nd 
the  indicator  "T"  (CALLed  programs)  were  specified.  This 
can  be  accomplished  by  having  separate  n/E  cards  wnich  are 
identical  except  one  has  a blank  indicator  area  and  the 
other  indicator  area  contains  a "T". 

A - Indicates  the  control  statement  should  be  generated 

bef  »re/after  all  o r og r a ms / l i br a r y text  entries  selectee. 

(As  though  blank#  *J'#  ’L'#  and  *T*  were  specified.) 

7.3.2  Defining  the  Alphabet-Cards  for  Job  Control  Generation 

The  Job  Control  Lanquaqe  neces.  v to  compile  and  execute  the  audit 
routines  will  comprise  between  5/ODD  and  20/000  statements.  The  central 
skeleton  of  Job  Control  Language  is  similar  for  all  the  audit  routines 
and  except  for  special  cases  (e.g./  SORT/  IPC)  is  identical.  Therefore# 
the  PPLVP74  processor  contains  the  capability  to  generate  job  control  language 
based  on  a formal  skeletal  definition  provided  through  the  use  of  alpnabet- 
cards.  A brief  example  of  a job  stream  shows  how  the  skeletal  definitions 
are  produced. 

EXEC  8 FUNCTION 

(1)  aRUN  ABC D E F # ACCNT  . . . Identifies  and  establishes  a job. 

(2)  SASG/T  TAPE1.#*C#...  Assigns  media  facility  for  program. 

(3)  SC0B/IBES  Invokes  the  COBOL  compiler. 

G001 DU  IDENTIFICATION  DIVISION.  Source  program. 


Produces  an  absolute  object  moduln 
(from  the  compiler  output)#  and 
executes  it. 

Terminates  th»  j oK  . 

The  'RUN*  statement  is  the  first  card  in  the  job.  The  "APCDEF"  represents 
the  job  name  and  must  be  unique  relative  to  the  other  proor ams  / j ohs  being  run. 

If  more  than  one  program  must  be  run  together  as  a job#  then  the  "RUN"  statement 
appears  only  before  the  first  in  a series  of  programs.  (The  "RUN  statement  is 
the  first  control  card  to  be  generated  before  a given  program  and  is  a job-level 
control  card  that  is  generated  only  once  per  independent  job.) 


The  *ASG*  statement  is  for  facility  manaaement  and  is  required  if  or  when 
an  audit  routine  requires  any  facilities  (files)  beyond  what  is  normally  avail- 
able at  execution  time.  [This  type  of  statement  appears  as  the  second  control 
card  (if  needed)  before  the  source  program.  Similar  *ASG*  statements  must  be 
generated  for  file  assignment  for  other  programs  within  the  job.  * A SG * is 
therefore  a program  level  control  card.1 

The  'COB*  statement  invokes  the  COBOL  compiler.  It  immediately  precedes 
the  source  program  and  is  generated  for  each  source  program  contained  in  the 
job.  ( Proo r am- l e ve l control  card  generated  before  each  program.) 


(4)  5-XQT 

(5)  S FIN 
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The  * X Q T * statement  immediately  follows  the  source  program  and  produces 
an  absolute  object  program  which  is  then  executed.  (This  control  card  is  a 
program -level  control  card  that  must  be  the  first  control  card  following  the 
source  program. ) 

The  'FIN*  statement  terminates  the  job.  (This  is  a job-level  control 
card  which  would  be  produced  only  once  after  the  job  control  statement  following 
the  last  program  in  a given  job.) 

The  *8*  and  *E*  a Iph abet -car ds  are  used  to  describe  the  job  control 
language  shown  in  the  previous  example.  The  *B*  cards  are  generated  before 
the  source  program  and  the  *F*  cards  are  generated  after  the  source  program. 

The  order  in  which  the  control  cards  are  generated  is  determined  by  a two 
digit  number  associated  with  the  alphabet-cards.  Prooram-level  versus  job-level 
control  cards  are  distinguished  by  the  use  of  the  indicator  column  which  was 
described  above.  Job-level  control  cards  are  noted  by  a "J"  in  the  indicator 
column  while  prog  ram- 1 eve  l control  cards  are  denoted  by  a blank  in  the  indi- 
cator column.  The  format  of  the  a l o h abe t -c a r ris  is: 

B-nnIli(Text  of  9-card) 

F-nnIIi(Text  of  E-card) 


The  nn  is  the  number  which  controls  the  order  in  which  the  control  cards 
are  generated.  The  II  is  used  for  program/ job  name  placements  and  the  i is  thi 
indicator  column.  The  following  0/  F s and  As  alphabet-cards  are  reauireri  to 
produce  the  control  statements  for  the  above  example. 


B-01l)6J£)RUN  JXXXXsACCNT.. 


B -02  BREAK*** 


9-G3  SCOBsIRES 


3-04 


E -01  SXGT 


E - 02  J a F I N 


E -03 


First  card  qenerateds  program  name 
placed  in  control  card  beginning  in 
column  6 of  the  generated  control  cards 
job  level  control  card  to  be  generated 
before  the  first  program  in  a series. 

Special  indicator  that  will  cause  the 
facility  request  control  cards  to  be 
aenerateds  if  needed/  for  the  croqram 
being  processed. 

Last  control  card  to  be  generated  before 
the  source  program. 

Blank  * R * card  ensuring  no  further 
control  cards  will  be  generated  before 
the  source  program. 

First  control  card  generated  after  each 
program. 

Job  level  control  card  to  be  generated 
after  the  last  pro gran  of  a set  is  pro- 
cessed. 


Blank  * F * card  to  ensure  that  no 
control  cards  will  be  generate'*. 


further 
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A-01  3AST#T  T APE1 .#8C#. . . Facility  request  control  cards  which 

A -C2  a A S G # T TAF,F2.#'Jf#...  will  he  generated  in  place  of  the 

special  indicator  ’BREAK****  if  these 
cards  are  required.  There  may  be 
any  number  of  ’A*  cards  dependinq  on 
the  application. 

The  above  skeletal  information  causes  Job  Control  Lanquaqe  statements 
to  be  produced  for  the  initial  example  shown  earlier.  This  is  a very  simple 
case  to  show  how  the  skeletal  information  is  produced  from  art  example  of  actual 
Job  Control  Language.  ’"ore  than  20  ’O'  and  *E  ' cards  is  not  uncommon  in  imple- 
menting the  full  COBOL  Compiler  Validation  System.  There  are  additional 
examples  and  further  details  about  the  Alphabet-cards  in  Appendix  a # Section 
A .3#  A l p habe t -Ca r d s / J ob  Control  Lanauaoe  Generation  (-onitor  Section). 


7.3.3  Further  Definition  of  File  Allocation  Joh  Control  Lanouaoe 

The  A-card  is  a specialized  alphabet -card  that  is  used  to  define  the  file 
allocation  Job  Control  Lanquaqe  statements  associated  with  the  files  used  hy 
audit  routines  (i.e.#  file  name  in  the  SELECT  statement  of  the  audit  routine). 
The  X-card  information  used  to  resolve  the  implementor  names  associated  with 
each  file  has  a dirpct  relationship  to  the  ’A*  card  bearino  the  same  number. 

For  example: 

X-01  represents  the  implementor  name  for  a maanetic  tape  file 

A— C 1 represents  the  job  control  statement  necessary  to  allocate  the 
facilities  for  the  file.  The  ’A*  caro  allocates  the  file  and 
assumes  that  it  is  to  be  released  after  the  prooram  terminates. 

Further#  for  systems  that  allocate  at  the  step  or  activity  level  rather  than  the 
job  level: 

A P0 1 allocates  the  file  and  assumes  that  it  is  to  be  used  by  a sub- 
sequent proqram  within  the  current  job. 

ADL1  is  used  to  allocate  a file  that  is  released  at  the  completion 
of  the  current  proqram. 

Section  5 contains  a list  of  all  X-card s used  in  CCVS74  and  identifies 
those  X-cards  used  for  files.  The  necessary  compliment  of  A-parris  must  be 
designed  and  produced  after  determinino  the  comp i l e r/ ope  rat i no  system  require- 
ments. 


The  presence  of  the  special  indicator  ’BREAK***’  in  a B or  E card  causes 
the  job  control  language  for  file  allocation  to  he  generated  for  the  fil^s 
used  by  the  source  prooram  being  processed. 

7.4  PROGRAMS  REQUIRING  SPFCI»L  CONSIDERATION 

The  implementation  of  the  source  programs  referenced  in  this  section  may 
require  additional  thought/work  on  the  part  of  the  person  implementinn  the 
COBOL  Compiler  Validation  System.  These  proarams  either  require  some  form  of 
ooerator  interaction#  specialized  job  control  laneuaue#  external  data#  or 
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externally  produced  ASCII  data  files. 

7.4.1  Specialized  Job  Control  Lanquaqe 

There  will  need  to  be  special  consideration  in  implementing  certain  modules 
of  CCVS74  due  to  specialized  job  control  lanouaqe  which  may  be  required. 

Library  f/odule 

The  preparation  of  the  library  text  which  is  to  be  copied  by  the  audit 
routines  making  up  the  library  module  reoui res  special  job  control  language 
statements.  The  library  text  must  be  selected  Cthrouoh  Plus  ( + ) cards  or  an 
environmental  request  - * EN  VI  RQNf'iE  N T KOOOD  and  a run  stream  built  which  will 
cause  the  appropriate  library  text  entries  to  be  created.  (See  Section  3 for 
the  program  and  library  text  names.) 

When  running  the  library  module  audit  routines/  additional  job  control 
language  may  be  necessary  to  identify  the  file  or  directory  containing  the 
library  text  which  is  to  be  copied  into  the  source  programs  at  corpil*3  time. 

The  discussion  of  the  Library  module  proorams  in  Appendix  D should  be  reviewed 
prior  to  the  i mp l emen t a t i on/ runn i ng  of  the  library  programs. 

Sort  r'odule 

There  are  generally  additional  job  control  language  statements  associated 
with  a program  usino  the  COBOL  sort.  These  additional  statements  can  be 
generated  automatically  by  the  placement  of  the  special  indicator  'SORT****'  in 
the  appropriate  positions  in  a * B * or  ' F * card.  ("This  is  discussed  in  7 . ^ and 
Appendix  A*  A. 3. 2/  B-Cards  (F-cards)  and  A. 3. 5/  S-Cards.l  The  actual  job  con- 
trol language  to  be  generated  for  a prooram  containing  a COPCL  sort  is  defined 
ated  only  for  sort  programs.  The  *S*  cards  are  generated  if  the  special  indi- 
cator ’SORT****'  is  encountered/  the  program  being  processed  contains  a SORT 
statement/  and  there  are  one  or  more  • S * cards  which  have  been  defined. 

Indexed  1-0  Module 

The  audit  routines  for  the  Indexed  1-0  module  are  designed  to  take  into 
account  that  some  implementations  of  indexed  I -0  require  two  physical  files 
to  make  up  an  indexed  file  (i.e./  one  file  for  the  data  and  one  file  for  the 
index  and  pointers.)  If  this  is  the  case/  the  use  of  the  optional  card  genera- 
tion feature  permits  two  implementor  names  to  be  contained  in  the  S^LFCT  statn- 
control  statements  (*A*  cards). 

The  lack  of  a definition  in  COROL  74  regarding  the  maximum  length  of  the 
RECORD  key  for  an  indexed  file  was  also  taken  into  consideration.  Through  the 
use  of  the  optional  card  feature  of  the  VP-routine  either  an  8 or  37  character 
RECORD  key  can  be  generated. 

See  Section  5/  CCVS74  X-CARDS/  (X-44/  x-45  and  X-46)/  Section  6/  CCVS74 
Option  Switches  (*0PT1Q  and  *CPT11). 

7.4 .2  External  Data 

Programs  NC109/  NC15*/  and  NC204  all  reoui re  external  data  when  they  are 
executing.  This  data  is  accessed  by  the  ACCEPT  statement.  The  data  required 
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is  contained  in  card  image  formats  immediately  following  the  source  programs  on 
the  population  file.  If  the  operating  system/compiler  permits  data  which  is  to 
be  ACCEPTed  to  be  included  inline  the  jobstream  controlling  the  compilation/ 
execution  of  a program/  this  can  be  accomplished  automatically  through  the  use 
of  the  P P L V P 7 4 processor  using  the  special  indicator  'DATA*****  and  the  optional 
• D * cards. 

The  special  indicator  ‘DATA****’  is  placed  in  the  appropriate  F-card.  This 
is  the  point  within  the  job  control  language  stream  that  the  date  is  placed 
(assuming  there  is  data  present  follcwinq  the  source  program  on  the  population 
tile).  If  additional  job  control  language  is  required/  the  D-01  and  D-0?  cards 
be  used.  The  format  is  the  same  as  for  the  *A*  cards.  The  D-01  card  will  be 
generated  before  the  data  and  the  D - 02  will  be  generated  after  data.  The  'a* 
cards  are  generated  only  if  the  data  is  present  followino  the  source  prooram 
being  processed.  The  data  can  bo  suppressed  such  that  it  will  not  be  placed  ir> 
the  output  file  containing  the  job  control  lanouane  and  source  proarams  by  omit- 
ting the  special  indicator  'DATA****. 

If  the  data  to  be  ACCEPTed  must  be  handled  differently/  the  data  content  to 
be  ACCEPTed  is  available  in  Appendix  D under  the  discussion  of  h C 109  / nC 1 5P / and 
N C 204  . 

/.4.3  Externally  Produced  ASCII  Files 

There  is  a three  program  set  which  comprises  an  ASCII  Validation  System. 

The  purpose  of  these  three  programs  is  to  validate  that  the  compiler/ope  ration 
system  being  tested  is  capable  of  processing  an  ASCII  tape  file  .and  an  ASCII 
card  file  produced  (in  accordance  with  the  appropriate  American  National 
Standard)  on  another  system.  Also/  a magnetic  tape  and  a card  file  are  created 
in  ASCII  during  the  validation.  Th^se  are  taken  to  another  system  for  further 
processing  to  determine  whether  the  compiler / op  crating  system  being  tested  can 
also  proouce  ASCII  files. 

The  ASCII  validation  is  based  on  several  American  National  Standards  and 
presumes  their  support  by  the  compi l e r/ope rat  ina  system  teine  validated.  These 
are: 

1.  Am,  erican  National  Standard  Programming  Language  C 0 F C L X 3 . d 3-1^74 

- The  CODE-SET  clause  is  used  in  the  File  Description  entrv  for 
ASCII  file. 

The  PROGRAM  COLLATIN'"-  SEQUENCE  clause  is  used  to  process  the 
data  in  ASCII  mode  as  well  as  native  mode. 

The  SIGN. ..SEPARATE  clause  is  used  for  signed  data/  and  all 
data  is  defined  in  the  DISPLAY  (character)  mode. 


2.  American  Notional  Standard  Code  for  Information  Interchange 
(ASCII)  x3. 4-1968.  (Note  that  this  describes  the  code  not  the 
labeling  and  tape  recording  formats.) 

3.  American  National  Standard  Hollerith  Punched  Card  Code/ 

X 3 . 26-1 970. 
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4.  American  National  Standard  Magnetic  Tare  Labels  for  Information 
Interchange/  X3. 2 7- 19 6 9. 

5.  American  National  Standard  Recorded  Maonetic  Tape  for  Information 
Interchange  (800  CPI/  N7RI)/  X3  . 23-1967. 

The  1974  COBOL  Standard  Language  provides  the  ability  to  accept/  process 
and  produce  ASCII  code.  The  ASCII  Standard  describes  what  the  cooe  looks  like 
insofar  as  the  bit  arrangement  and  configuration/  but  does  not  address  record- 
ing techniques/  record  formats  or  any  labeling  scheme.  The  800  density  CPI/ 
NZRI  magnetic  tape  recording  standard  was  used  to  establish  the  recording 
density  and  techniques.  (160U  CPI/  PF  based  on  X3.39-1R73  "Fecoroed  "ancet ic 
Tape  for  Information  Interchange"  can  be  used  under  special  arranoement s . ) 

The  tape  labeling  scheme  is  based  on  X3. 27-1069  but  is  also  compatible  with  the 
revision  to  that  tape  label  standard.  Only  the  VhLl/  H D R 1 / and  FCFl  labels  are 
used.  The  records  are  fixed  length  and  unblocked. 


During  an  official  validation/  the  Validation  Manager  for  the  Federal 
COBOL  Compiler  Testing  Service  will  supply  the  necessary  ASCII  magnetic  tape 
and  card  files  in  addition  to  the  normal  tape  files  associated  with  a valida- 
tion. For  the  ASCII/  portion  of  the  validation  the  following  steps  are  per- 
formed: 

1.  Run  SOUS  (SQ11R,  Sul  20 ) 

SQ11R  produces  a maqetic  tape  file  and  card  file  in  ASCII  code 
with  the  appropriate  labels  for  the  system  beino  validated. 

SG119  reads  the  magnetic  tape  and  card  file  to  verify  their 
correctness  in  internal  native  mode. 

SQ12C'  further  checks  the  data  in  internal  ASCII  mode. 

The  magnetic  tape  file  and  card  file  are  saved  as  part  of  the  raw 
dat a produced  during  the  validation.  These  two  files  are  further 
verified  Py  the  Federal  COBOL  Compiler  Testing  Service  as  to  the 
accuracy  of  the  data  produced.  This  is  done  using  a different 
compu t er  system. 

2.  Programs  S Q 1 1 P and  S G 1 2 0 are  rerun  us  inn  the  magnetic  tape  and 
card  decks  supplied  by  the  Validation  w a n a o e r in  place  of  the  two 
files  produced  by  SG11C.  This  process  checks  thp  ability  of  the 
compi  ler/operat ing  system  to  read  and  process  ASCII  data  produced 
on  another  computing  system. 
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3.  SDD  COMPILER  VALIDATION  PROCEDURES 

The  procedures  used  in  conducting  the  validation  of  a COBOL  comp i l ° r us  i no 
one  of  the  U.  S - Navy  Compiler  Validation  Systems  (CVS)  are  broken  up  into 
several  distinct  operations: 

1)  The  prevalidation  phase  includes  those  activities  which  must  he 
accomplished  prior  to  the  actual  validation  either  in  the  SDD  office  or 
at  the  validation  site. 

2)  The  validation  phase  is  performed  at  the  validation  requestor 's  site 
and  consists  of  the  collection  of  raw  data  by  the  runnina  of  the  audit 
routines  that  make  up  the  CVS. 

3)  The  post-validation  phase  is  performed  after  the  actual  validation  at 
the  SDD  office  and  consists  of  analvrinn  the  raw  data  and  the  production 
of  a Validation  Summary  Report  (VSR). 

The  quidelines  offered  in  this  section  are  designed  to  standardize  the  vali- 
dation process  and  improve  the  production  of  the  validation  team.  They  are 
meant  to  be  followed  whenever  possible. 

(DEFINITIONS) 

A.  Compiler  Validation  System  (CVS)  - A system  of  source  programs  for  a given 
language  which  collectively  contains  the  features  of  that  lanouaoe.  The 
compilation  and  execution  of  these  programs  indicate  the  degree  to  which 
the  compiler  conforms  to  its  language  specifications.  There  is  also  an 
executive  routine  (PPLVP74)  associated  with  CVS  which  is  used  to  rrepare  the 
source  programs  for  compilation. 

9.  Sooice  Program  Library  - This  library  contains  the  source  proorams  makino 
up  the  CVS  and  the  executive  system.  It  is  delivered  on  magnetic  tape  but 
can  be  leaded  on  mass  storage  for  the  duration  of  the  validation.  (The  COBOL 
Compiler  Validation  System  identifies  this  as  the  "Population  File"/  while  the 
FORTRAN  Compiler  Validation  System  documentation  identifies  this  as  the  FCVS 
library  file.)  For  the  purposes  of  this  document  it  is  referred  to  as 
Population  File. 

C.  Compiler  Validation  System  Executive  Routine  - This  proqram  acts  as  an 
interface  between  the  validation  team  and  the  operating  system  supporting  the 
compiler  being  validated.  This  system  is  required  when  doino  an  offical  vali- 
dation. (The  COBOL  Compiler  Validation  System  documentation  identifies  this  as 
PPLVP74  CVP-Rout ine3;  the  FORTRAN  Compiler  Validation  System  documentation 
identifies  this  as  the  Executive.)  For  the  purposes  of  this  document  it  is 
referred  to  as  PPLVP74. 


D.  SDD  - Software  Development  Division/  Federal  Ooerations  Directorate/  Naval 
Data  Automation  Command/  Department  of  the  *'avy/  Washington/  D.C./  20376.  The 
SDD  supports  the  Federal  COBOL  Compiler  Testing  Service. 


E.  Validation  Team  - The  validation  team  is  made  up  of  SDD  personnel  com- 
plemented by  personnel  supplied  by  the  reouestor. 


F.  Validation  Manager  - SDD  team  member  that  is  responsible  for  insuring 
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that  the  validation  is  accomplished  accordino  to  the  official  SOD  valida- 
tion procedures.  The  Validation  Manager  has  the  authority  to  determine  when 
the  validation  is  complete. 

5.1  PRE VALIDATION  IMPLEMENTATION  PROCEDURES  (SOD) 

Certain  prevalidation  implementation  procedures  can  be  accomplished 
without  the  use  of  the  tarrjet  computing  system.  These  are  perforred  prior 
to  the  initiation  of  the  validation  and  are  done  in  the  office  of  tne  SDD. 

This  permits  the  Validation  Manager  to  accomplish  this  part  of  the  validation 
in  his  own  environment  where  he  has  access  to  information  and  computer  time 
which  may  not  be  available  in  the  installation  where  the  validation  is  to  take 
place.  The  information  provided  by  the  requestor  in  supporting  software 
manuals  shall  be  the  major  source  of  information  for  the  following  steps. 

8.1.1  P P L V P 7 4 Parameter  Input  Preparation 

Based  on  the  information  provided*  the  input  for  the  PPL  VP 7 4 processor  will 
be  prepared  to  (1)  resolve  all  implementor  names  within  the  audit  routines  (X- 
cards)  and  ( 2 ) produce  the  job  control  language  necessary  to  compile  and  execute 
each  of  the  programs  (alphabet  cards).  If  there  is  a computer  environmental 
entry  on  the  Population  Eile  for  the  operating  system  under  which  the  validation 
will  be  run*  then  any  necessary  modifications  are  prepared.  If  there  is  no 
applicable  environmental  entry  then  the  input  information  must  be  produced  from 
scratch. 

3.1.2  PPLVP74  Boot  Program  Deck 

A source  program  must  be  prepared  which  will  extract  the  PPlVp74  processor 
from  the  Population  File  and  modify  it  for  the  target  compiler  so  that  it  can  be 
comoiled  for  later  use  during  the  validation.  The  information  contained  in  the 
implementation  documentation  shall  be  used  in  producinc  or  modifying  a boot  deck 
for  the  tarqet  system. 

8.2  PREVALIDATION  IMPLEMENTATION  PROCEDURES  CON-SITE) 

The  following  steps  should  be  performed  usino  the  target  system  and  must 
be  done  prior  to  the  initiation  of  the  validation.  The  completion  of  the 
following  procedures  is  dependent  on  the  successful  completion  of  the  pre- 
validation implementation  procedures  described  in  3.1.1  above. 

8.2.1  PELVP74  Implementation 

Using  the  boot  program  deck  produced  in  8.1.?  the  PPLVP74  processor  is 
implemented  on  the  target  system.  The  boot  deck  is  compiled  on  the  target 
system  and  executed  (using  the  appropriate  job  control  languaqe  statements)  to 
extract  the  PPLVP74  processor  and  store  it  in  a temporary  file  for  subsequent 
compilation  and  cataloging  of  the  object  program.  Additional  changes  may  hav>' 
to  be  made  to  PPLVP74  based  on  diagnostics  produced  by  the  compiler.  There 
should  be  no  fatal  errors  generated  by  the  compiler  during  compilation*  but 
depending  on  the  implementation  of  the  compiler*  there  may  be  some  syntax  which 
is  not  acceptable.  (This  should  be  noted  and  kept  with  the  other  validation 
results) . 

The  PPLVP74  source  code  is  modified  as  necessary  and  the  object  prooram 
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resulting  from  its  compilation  is  cataloaed  (stored)  such  that  it  can  be 
executed  as  needed  throughout  the  validation.  The  appropriate  jot  control 
language  is  produced  which  will  assign  (request)  the  Population  file#  assign 
(request)  a file  for  the  output  of  the  PPLVP74  processor#  and  execute  t h° 

PPLVP74  processor.  The  method  by  which  the  output  from  the  PPLVF 74  processor 
(job  control  language  and  source  proarams)  will  be  introduced  to  the  operatino 
systems  must  be  established.  When  this  has  been  accomplished  the  PPL VP  74  input 
parameter  data  can  be  tested. 

3.2.7  P P L V P 7 4 Input  Parameter  Test 

Once  the  P P L V P 7 4 processor  has  been  installed  and  can  be  executed#  the 
input  parameters  produced  under  8.1.1  are  tested.  Any  cor  re ct i ons /mod i f i ca- 
tion s suqaested  by  the  requestor  as  a result  of  his  review  are  made.  A good 
test  for  the  generated  job  control  language  is  to  select  MCI  PI  and  SQ101  from 
the  Population  File  for  compilation  and  execution.  The  results  of  the  compi- 
lations and  executions  are  examined  to  verify  the  correctness  of  the  input  that 
has  been  provided  to  the  PPLVP74  processor. 

When  the  Validation  ,!anager  and  the  reauestor's  representative  aaree  that 
the  input  parameters  are  correct#  a number  of  copies  of  the  run  deck  are  made. 
This  facilitates  the  segrpaation  of  like  proarams  into  separate  decks  rather 
than  using  a single  run  deck  for  the  entire  validation.  This  means  that  the 
chances  and  options  necessary  for  a given  module  are  contained  in  a run  deck 
isolated  from  the  information  required  by  the  other  modules.  It  also  means  that 
several  runs  can  be  active  at  one  time#  and  in  the  event  that  the  validation  is 
being  performed  in  a closed  shop  environment#  decks  can  be  prepared  and  sub- 
mitted at  the  Validation  vanager*s  leisure  without  being  dependent  on  the  pre- 
sence of  a single  run  deck.  A good  practice  is  to  have  a run  deck  for  each 
module  and  to  identify  it  as  such  through  the  job  name  or  run-id. 

3.3  VALIDATION  PROCEDURES 

The  objective  of  a validation  is  to  compile  and  execute  all  of  the  programs 
required  for  the  level  of  FIPS  PUP  21  (COBOL  68)  or  FIPS  PUB  21-1  (COBOL  74) 
being  validated#  or  in  the  case  of  FORTRAN  77  compile  and  execute  all  of  the 
programs  contained  in  the  FORTRAN  Compiler  Validation  System.  The  basic  pre- 
mises upon  which  a validation  is  performed  are:  (1)  that  all  of  the  proarams 
which  are  to  be  used  are  syntactically  acceptable  (after  modification  by  the 
PPLVF' 74  processor)  to  the  compiler  being  validated;  and  (2)  that  the  implementa- 
tion of  the  semantic  requirements  are  within  the  semantic  definition  of 
the  compiler's  language  specification.  It  is  assumed  that  the  compiler  will 
syntactically  accept  all  of  the  program  statements  and  produce  tie  necessary 
object  code  to  carry  out  the  semantic  demands  of  each  of  the  pro<rams. 

If  the  above  are  valid  premises#  then  a validation  would  consist  of  com- 
piling and  executing  each  program  and  recording  that  each  program  produced  the 
expected  results.  This  is  usually  not  the  case#  and  therefore  the  following 
guidelines  have  been  prepared.  These  guidelines  help  lead  the  Validation 
Manager  through  a validation  in  a manner  which  is  consistent  with  the  techni- 
ques used  in  previous  validations. 

The  validation  process  consists  of  two  phases.  The  first  phase  is  the 
syntax  check  and  determines  to  what  deqree  a compiler  accepts  the  syntax  de- 
scribed in  its  language  specifications.  The  second  phase  has  to  do  with  the 
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semantic  requirements  of  the  lan^uaae  specifications  and  the  deoree  to  which  the 
compiler  interprets  them  correctly. 

3.3.1  The  Syntax  Validation  Phase 

It  is  assumed  that  the  audit  routines  making  up  the  Compiler  Validation 
System  are  syntactically  correct  vis-a-vis  the  language  specifications  against 
which  the  compiler  is  being  validated.  Rejection  of  syntax  by  the  compiler  is 
determined  for  the  most  part  by  the  diagnostic  messaaes  produced  burin-  the  com- 
pilation process.  If  there  are  no  serious  or  fatal  diagnostic  messages  produced 
and  any  warning  messages  provide  only  expected  information  (e.g./  "^OVE  results 
in  truncation”  - where  truncation  is  being  tested/  "Signed  subscript"  - obvi- 
ously the  subscript  cannot  contain  a negative  value  but  a signed  nata  item  car 
be  used  as  a subscript)/  then  the  program  is  ready  for  the  Semantic  Validation 
d has  e (8.3.2). 

The  Validation  Manager  is  responsible  for  ensurino  that  all  diagnostic 
messages  are  evaluated.  Diagnostic  messages  outside  the  category  of  "Warnino" 
or  "Information"  should  be  eliminated  prior  to  accepting  the  results  of  the 
execution  of  the  object  program  produced  from  the  compilation  of  the  audit  rou- 
tine. The  handling  of  fatal  or  serious  errors  must  be  done  consistently  and  in 
a logical  manner.  The  source  program  which  produced  the  diagnostics  must  be 
altered  to  the  extent  that  it  becomes  "socially"  acceptable  to  the  compiler. 

Care  must  be  taken  in  recording  the  contents  of  the  diagnostic  messages  in  the 
Compilation/Execution  Summary  Sheet  for  that  audit  routine.  This  is  done  to 
capture  information  which  will  be  lost  once  the  source  program  is  altered. 

Careful  consideration  must  be  given  to  each  change  being  made  to  an  audit 
routine.  If  a statement  being  tested  in  the  Procedure  Division  (executable 
statement)  is  rejected  by  the  compiler/  then  that  portion  of  the  procedural  cod° 
is  changed  from  executable  statements  to  comments.  This  causes  the  source  pro- 
gram to  compile  correctly  (with  no  diagnostic  errors)  and  during  execution  t ► e 
test  report  produced  will  indicate  that  the  test  in  question  was  deleted.  (In 
this  case  the  description  of  the  diagnostic  message  recorded  in  the  Compilation/ 
Execution  Summary  Sheet  and  the  statement  subsequently  eliminated  will  be  used 
in  producing  the  appropriate  entry  in  the  Validation  Summary  Report.) 

When  the  supporting  code  produces  error  diagnostics/  then  any  source  code 
modifications  must  be  planned  so  that  misleading  results  are  not  introduced  in 
the  report  produced  during  the  execution  of  the  audit  routine.  The  worst  possi- 
ole  case  would  be  to  cause  the  results  of  a test  to  indicate  that  the  test  pass- 
ed when  indeed  the  test  was  either  not  executed  or  the  supporting  code  did  not 
correctly  evaluate  the  results  of  the  test.  This  applies  to  supporting 
code  in  both  data  and  procedural  statements  (Data  and  Procedure  Divisions). 

Rejection  of  source  code  not  directly  associated  with  a test  can  cause  f ro- 
blems  in  the  interpretation  of  the  results  of  a test  as  well  as  the  interpreta- 
tion of  what  to  correct  and  how.  Judgement  must  be  exercised  such  that  the 
purpose  of  the  test  is  not  defeated  or  that  the  program  is  not  mortified  to  the 
extent  that  a set  of  tests  is  no  longer  relevant. 

When  a source  program  has  been  modified  such  that  no  suspicious  diagnostic 
messaaes  are  produced/  then  the  execution  of  the  object  prooram  is  attempted. 

The  execution  results  of  programs  which  were  modified  at  the  source  level  are 
examined  carefully  in  the  areas  where  a source  language  change  could  impact  the 
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results. 

*.3.<?  Semantic  Validation  Phase 

The  semantic  validation  phase  takes  place  when  the  object  program  produced 
by  the  compiler  is  executed.  For  the  most  part  the  audit  routines  are  self- 
checking.  That  is#  they  execute  the  code  being  tested  and  compare  the  output  of 
the  test  aoainst  a predetermined  result.  An  outout  test  report  is  produced 
which  indicates  the  results  of  each  of  the  tests  contained  in  a given  program. 

In  cases  where  a discrepancy  exists#  the  output  report  contains  the  results  pro- 
duced by  the  compiler  beinq  validated  and  the  Dredetermi ned  results  expected 
by  the  audit  routine.  (There  are  cases  where  se l f-check ing  is  not  possi!  le  and 
the  output  must  be  visibly  examined  to  determine  the  results  of  each  of  the 
tests  contained  in  the  audit  routine.) 

The  interpretation  of  the  semantic  results  of  the  tests  is  generally 
straightforward.  The  source  code  where  the  test  is  located  can  te  found  ty 
searching  the  source  program  for  the  definition  of  the  procedure  name/test 
number  identified  in  the  output  report.  If  the  computed  and  expected  results 
are  available  on  the  output  report  they  can  be  used  in  attempting  to  describe 
the  error.  All  available  information  should  be  recorded  on  the  Compilation/ 
Execution  Summary  Sheet  for  that  audit  routine.  (Include  the  test  name# 
results#  an  indication  of  whether  a change  to  the  source  program  could  have 
contributed  to  the  failure#  and  any  other  pertinent  information.) 

d.3.3  Validation  Controls 

The  Validation  process  is  controlled  by  the  Validation  ^anacer.  When  all 
of  the  prevalidation  implementation  procedures  have  been  completed  the  valida- 
tion is  ready  to  begin.  There  should  be  a run  deck  for  selecting  each  module 
to  be  tested.  (This  will  vary  for  COBOL  validation  dependina  on  the  Federal 
level  of  COBOL  for  which  the  compiler  is  beino  validated).  Forms  are  provided 
to  help  the  Validation  Manager  maintain  controls  over  the  validation  and  have 
an  up-to-date  status  of  the  validation  at  all  times. 

o Paw  Data  Verification  Form  - This  series  of  documents  is  used  to  keer 
a log  of  all  of  the  programs  which,  have  been  run#  need  tc  be  rerun  or 
have  yet  to  be  compiled.  The  preprinted  forms  include  an  entry  for 
each  attempt  to  run  the  program. 

- Less  than  successful  runs  - Information  reoarding  the  unsuccess- 
ful comp i l a t i on /e x e cu t i on  of  a program  is  recorded.  This  includes 
compile  time  aborts#  compile  time  error  diagnostics  which  prevent 
execution#  execution  time  aborts#  test  failures#  etc. 

- Execution  to  Completion 

1.  Never  achieved  - This  box  is  checked  if  the  complete  compilation/ 
execution  is  never  achieved.  This  could  be  due  to  a compiler 
not  supporting  the  language  elements  being  tested.  The  elimina- 
tion of  all  the  tests  in  a aiven  program  results  in  a meaningless 
execution.  During  execution  of  the  object  program#  continued 
abnormal  terminations  make  the  rroaram  a candidate  tor  abandon- 
ment. The  Validation  Manager  shall  determine  when  a program 
I shall  be  abandoned. 
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2 . Achieved  (No  errors)  - This  is  the  preferred  result.  The  proorsn 
compiled  correctly  and  no  tests  were  deleted  or  produced  erroneous 
results.  If  this  box  is  checked  then  the  test  im  of  that  program 
is  complete.  However/  if  syntax  modifications  were  made  to  the 
source  proqram/  they  are  documented  in  the  Compilation  / F.  xecution 
Summary  Sheet. 

3.  Number  of  failures  - This  block  contains  the  number  of  failures 
indicated  on  the  output  report  for  each  audit  routine. 

4.  Number  of  deleted  tests  - This  block  contains  the  number  of 
deleted  tests  indicated  in  the  output  report  for  each  audit 
routine. 

5.  Number  of  modifications  m3de  - This  indicat°s  how  n any  source 
modifications  were  made  to  each  source  program#  if  any. 

The  Validation  Manager  uses  the  Raw  Data  Verification  form  as  a check  sheet. 

For  any  program  executed  which  contains  information  other  than  a check  in  the 
"achieved  - no  errors"  box/  a Compilation/Execution  Summary  Sheet  is  orocuced. 

o C cmpi l a t i on/ E x e cu t i on  Summary  Sheet  - This  form  is  used  to  record 

additional  information  about  the  audit  routines  which  cannot  be  con- 
tained in  the  Raw  Data  Verification  Form.  This  summary  sheet 
contains  all  chanaes  made  to  the  source  program  and  any  changes 
required  in  the  PPLVP74  parameters.  Information  regardiro  comoile 
time  diagnostics  and  the  solution  chosen  are  also  listed.  The  final 
information  recorded  is  the  execution  results.  For  test  failures  this 
includes  the  computed  and  correct  result  (when  available)  and  the  test 
number. 

o Information  Only  Test  Loo  - This  is  merely  a list  of  information  tests 
(where  there  is  no  pass  or  fail  situation)  contained  in  the  Compiler 
Validation  System.  This  list  contains  the  prooram  nanrie  or  identifica- 
tion of  the  test.  The  information  is  extracted  from  each  of  the  pro- 
, ora  ms  and  the  test  log  completed.  This  will  be  summarized  ir>  the  infor- 
mation section  of  the  Validation  Summary  Report.  (Not  applicable  to 
COBOL  74.) 

All  the  documents  described  are  used  to  produce  the  Validation  Summary 
Report  (VSR)  for  the  compiler  being  validated.  Therefore#  the  mere  judiciously 
the  forms  are  filled  out#  the  easier  the  production  of  the  VSR.  if  t^e  forms 
are  complete#  the  majority  of  the  work  in  producing  the  VSR  can  he  accomplished 
by  the  Se c r e t ar y / Li b r a r i an . 

8.3.4  Validation  Mechanics 

The  validation  sould  be  accomplished  in  an  orderly  fashion  takino  a^vant- 
3'ie  of  the  environment  as  much  as  possible.  All  of  the  proarams  must  be  sel- 
ected and  run  at  least  once.  Some  programs#  due  to  error  diagnostics  and 
abnormal  terminations  during  execution#  must  he  run  several  times. 

The  initial  pass  of  the  routines  can  be  accomplished  without  any  real 
validation  expertise  and  could  be  done  by  the  requestor  in  the  absence  of  the 
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validation  team.  If  the  on-site  implementation  can  be  accomplished  by  the  user/ 
then  the  validation  team  need  not  show  up  until  the  first  pass  of  all  the  pro- 
grams is  complete. 

1.  After  the  first  pass/  the  prop ram  list  in  as  should  be  segregated  into 
"successful"  and  "others".  After  the  successful  runs  have  been  loaned 
onto  the  appropriate  Raw  Data  Verification  Form/  they  should  be  set 
aside  for  shipment  to  the  Testing  Service  office. 

2.  Programs  that  compiled  correctly  but  produced  erroneous  results  should 
be  examined  in  a cursory  fashion  to  verify  that  the  causes  of  the 
failure  was  not  due  to  incorrect  input  being  provided  to  the  compiler/ 
operating  system  (e.g./  switch  setting/  compile  or  object  time  debuo 
switch).  If  the  errors  can  be  attributed  to  the  compiler/  they  should 
be  logged  onto  the  appropriate  Raw  Data  Verification  form  and  set 
aside  for  shipment  to  the  FCCTS  office.  Proorams  whose  execution 
errors  can  be  attributed  to  incorrect  parameter  information  should  be 
rerun  with  the  correct  parameters. 

3.  Programs  that  contain  source  diagnostic  messaaes  which  are  considered 
to  be  other  than  information  should  be  examined  to  determine  what 
caused  the  diagnostic  message.  Source  changes  should  be  made  in  an 
effort  to  produce  a program  that  the  compiler  considers  syntactically 
correct.  All  changes  must  be  noted  on  the  C omp  i l a t i on/ E x e cu t i on  Sum- 
mary Sheet.  The  modifications  to  the  source  programs  are  accomplished 
throuoh  the  update  capability  of  the  PPLVP74  processor.  All  uodates 
made  throuqh  the  PPL V P 7 A processor  are  saved  for  later  verification 

in  producing  the  VSR. 

Programs  that  have  to  be  modified  several  times  can  become  troublemakers. 
The  Validation  Manager  uses  his  discretion  in  determining  whether  to  continue 
experimenting  with  a program  or  to  declare  it  as  an  abandoned  rrocram.  One  must 
not  lose  sight  of  the  fact  that  compiler  validation  and  compiler  debugging  are 
not  synonymous. 

8. A VENDOR  INSTRUCTIONS  FOR  ACCOMPLISHING  A VALIDATION 

8.4.1  Program  Modifications 

ALL  modifications  to  the  source  programs  must  be  made  throuoh  the  Executive 
Routine  (PPLVP74)  included  with  the  Compiler  Validation  System.  The  vendor  may 
use  whatever  techniques  he  has  available  for  his  own  testing  requirements/  hut 
for  an  official  validation  these  "other  techniques"  must  be  reduced  to  incut  to 
the  Executive  Routine.  All  inputs  to  the  Executive  Routine  must  be  collected 
upon  completion  of  the  validation  for  use  by  the  Validation  Manager  in  nroducinn 
the  Validation  Summary  Report. 

8.4 .2  Output  Requirements 

Listings  which  must  be  shipped  to  the  FCCTS  for  further  processing  include: 

a.  All  output  listings  produced  by  the  Executive  Routine  durina 
the  validation. 

b.  The  final  compilation/execution  of  each  of  the  source  proorams 


used  in  the  validation  process.  This  includes  the  compiler  pro- 
duced source  listing/  any  listing  produced  by  the  binding  process 
which  may  be  required  prior  to  execution/  and  the  report  pro- 
duced by  the  execution  of  the  audit  routine. 

c.  The  initial  compilation/execution  of  each  of  the  source  pro- 
grams which  had  to  be  rerun  durino  the  validation  process 
must  also  be  retained. 

5.4.3  Shipping  Instructions 

When  the  testing  is  complete  alt  output  must  be  pack aaed  for  shipment 
to  the  Testing  Service  for  further  processina.  A packing  manifest  should 
accompany  each  package  of  listings  identifyir.a  the  name  of  each  of  the 
listings  and  the  relative  order  of  each  listing  in  the  packaoe.  A duplicate 
copy  of  the  packing  manifests  should  be  provided  for  the  Validation  fianaoer. 

The  following  items  are  to  be  shipped  to  the  FCCTS  when  the  collection  cf 
raw  data  is  complete: 

a.  All  input  to  the  Fxecutive  Routine/  in  PD  column  card  form/ 

b.  All  output  listings  produced  by  the  fcxecutive  Routine/ 

c.  All  source  program  compilation/'execution  listings  described 
in  8.4.2  above/ 

d.  All  magnetic  tapes  supplied  by  the  Testing  Service.  (Copies 
of  the  tapes  can  be  saved  by  the  v ° n d o r / however  the  orininal 
tapes  must  be  returned.) 

The  above  items  should  be  forwarded  to: 

Software  Development  Division 

Federal  COBOL  Compiler  Testinq  Service 

Department  of  the  Navy 

Washington/  D.  C.  2C376 

A T T m : (Use  FCCTS  control  number  assigned  to  the  validation) 
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9.  AUDIT  ROUTINE 


FOR  EACH  LEVEL  OF  FIPS  PUB  21-1  (COBOL  74 ) 


There  are  four  levels  making  up  Federal  Standard  COBOL 
Low-Intermediate#  High-Intermediate#  and  Hioh. 


They  are  Low# 


9.1  LOW  LEVEL  OF  FEDERAL  STANDARD  COBOL 


The  followino  proqrams  must  be  compiled/executed  for  purposes  of 
validating  the  Low  level  of  Federal  Standard  COBOL. 


MODULE 


NUMBER  OF  programs 


Nucleus  (Level  1) 
NC1Q1-NC12G 
NCI  51 -NC 165 


Table  Nandlinq  (Level  1) 
TH1U1-TH111 
TH151-5H15 2 


Sequential  1-0  (Level  1) 
SG101-SS121 
SG151-SQ153 
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9.2  LOW-INTERMEDIATE  LEVFL  OF  FEDFRAL  STANDARD  COBOL 

The  following  programs  must  be  compiled/executed  for  purposes  of 
validating  the  Low -I nt e rmeri i a t e level  of  Federal  Standard  COBOL.  Note  that 
all  of  the  proorams  makinq  up  the  Low  Level  of  Federal  Standard  COBOL  must 
also  be  compiled  and  executed. 


MODULE  NUMPFR  OF  PROGRAMS 

(Low  Level)  7? 

Relative  1-0  (Level  1) 

RL101-PL109  9 

RL151-RL153  3 

RL421  1 

Segmentation  (Level  1) 

SG101-SG103  (Exclude  SG1P4-SG106)  3 

S6421  1 

Library  (Leve  l 1 ) 

LB101-LR104  (Exclude  LB1C5)  4 

LB1U6-LB107  2 

LB  4 2 1 1 

Debun  ( Leve  l 1 ) 

DR1G1-DR1C3  (Exclude  DB104)  3 

DB105  1 

DP421-DP422  2 

Inter-Proaram  Communication  (Level  1) 

IC101-IC123  23 

IC151-IC152  2 

IC421-IC422  . 2 
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9.3  HIGH-INTERMEDIATE  LEVEL  OF  FEDFRAL  STANDARD  COBOL 

The  following  programs  must  be  compi  led/executed  for  purposes  of 
validating  the  Hi gh- Int e r me d i a t e level  of  Federal  Standard  COBOL.  Note  that 
all  of  the  programs  makino  up  the  lower  levels  of  Federal  Standard  COBOL  must 
also  be  compiled  and  executed. 


MO DOLE 


NUMBER  OF  PROGRAMS 


(Low-Intermediate) 

Nucleus  ( Lev e l 2 ) 

NC201-NC219 

NC431 

Table  Handlina  (Level  2) 

TH201-TH221 

TH431 

Sequential  1-0  (Level  2) 

SG201 -SQ220 
S0431 

Relative  1-0  (Level  ?) 

RL201-RL2P5 

KL431 

Sort- Merge  (Level  1> 

ST101-ST118 
ST431 -ST434 

Segmentation  (Level  1) 

SG104-SG106 

Library  (Level  1) 

LB1P5 

Debug  (Level  1 ) 

DP  1 04 

Debug  (Leve l 2 ) 

DP201-DB202  (Exclude  DR2P3  and  DP2P4) 
DB431 

Inter-Program  Communication  (Level  2) 
IC201-IC208 
IC431-IC432 

Communication  Module 

'■one  - Withheld  from  CCVS74  3.0 
CM431  (for  flagging  purposes  only) 
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9.4  HIGH  LEVEL  FEDERAL  STANDARD  COBOL 

The  following  proorams  must  be  comp i l ed /e xe c u t ed  for  purposes  of 
validating  the  Hioh  level  of  Federal  Standard  COBOL-  bote  that  all  of  the 
proorams  making  up  the  lower  levels  of  Federal  Standard  COBOL  must  also 
be  compiled  and  executed. 


MODULE 

(Hi oh-Intermediate) 

Indexed  1-0  (Level  1) 
IX101-IX107 

Indexed  1-0  (Level  2) 
IX201-IX711 
1X441 -1X442 

Sort-!*erae  (Level  2) 
ST201-ST216 
ST44 1 -ST443 

Segmentation  (Level  ?) 
SG201-SC.204 
SC-441 

Library  (Level  2) 

LB201 -LB207 
LB441 

Debuo  (Level  2 ) 
DB203-DR204 


NUMBER  OF  PROGRAMS 
? 39 

7 

11 

2 

16 

3 

4 

1 

7 

1 

2 


54 

293 


57 


t 
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9.5  REPORT  WRITER  MODULE 

The  FIPS  PUB  21-1  excludes  the  Report  Writer  Module  from  the  Federal 
COBOL  Standard.  However/  the  Report  Writer  Module  is  still  tested  durino  a 
validation  if  support  for  that  module  is  claimed  by  the  compiler  vendor. 

MODULE  NUMBER  OF  PROGRAMS 

(Low  through  High)  293 

RW101-RW104  4 

TOTAL  CCVS74  V3.0  297 


I 


I 

•j 
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10.  AUDIT  ROUTINES  FOR  FLAGGING  EACH  LEVEL  CF  FIPS  PUP  21-1  (COBOL  74) 

There  are  three  groups  of  audit  routines  provided  for  determining  the 
degree  to  which  a given  COBOL  compiler  meets  the  flagging  requirements  as 
defined  in  FIPS  PUB  21-1. 

All  COBOL  elements  identified  within  an  audit  routine  which  are  above 
the  level  of  Federal  Standard  COBOL  being  syntax  checked  should  be  flagoed. 
If  a COBOL  element  above  a specified  level  of  Federal  Standard  COBOL  is 
supported  by  the  compiler/’  then  the  message  should  contain/  at  a minimum/ 
(1)  the  identification  of  the  source  line  number  in  which  the  nonconforming 
syntax  occurs/  and  (?)  the  identification  of  the  level  of  Federal  Standard 
COBOL  that  supports  the  syntax. 
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10.1  LOW  LEVEL  FEDERAL  STANDARD  COBOL 

The  following  flagoing  procjrams  must  be  compi l ed /execut ed  for  purposes 
of  validating  the  compiler’s  capability  for  flagging  lanciuage  elements  above 
the  Low  Level  of  Federal  Standard  COBOL. 

MODULE  NUMBER  OF  PROGRAMS 

Communication 

CM431  1 


Debug 

DB4Z1-DB422  ? 

DB431  1 

Inter -Proar am  Communication 

im-irn  i 

Indexed  I-C 

IX441-IX44?  2 

Library 

LB421  1 

LB441  1 

Nucleus  (Level  2) 

NC431  1 

Relative  1-0 

RL421  1 

RL431  1 

Seomentat  ion 

SC421  1 

SG441  1 

Sequential  1-0  (Level  2) 

50431  1 

Sort -Merge 

ST431-ST434  4 

ST441-ST443  3 

Table  Handling  (Level  2) 

TH431  1 

Total  26 
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10.2  LOW-INTERMEDIATE  LEVEL  FEDERAL  STANDARD  COBOL 

The  followinq  flagoing  programs  must  be  com piled/executed  for  purposes 
of  validating  the  compiler's  capability  for  flaooing  language  elements  above 
the  L ow -I  nt  e r med  i a t e Level  of  Federal  Standard  C0F<0L. 

The  desianated  language  elements  contained  in  the  followinq  prog-rams 
must  be  flagged  if  the  compiler  is  in  conformance  with  the  FIPS  PUR  21-1 
flagqing  requirements  for  the  Lou-1 nt e rmed i a t e level  of  Federal  Standard 
COBOL. 


MODULE 

C ommun i c at  ion 
C M 4 31 

Debug 

DB431 

Inter-Proaram 

IC431-IC432 

Indexed  1-0 
IX441-IX44? 


NUMBER  OF  PROGRAMS 

1 

1 

Communication 

2 

? 


Library 


LB441  1 

Nucleus  (Level  2) 

NC431  1 

Relative  1-0 

RL431  1 

Seqmentat ion 


SG441  1 

Sequential  1-0  (Level  2) 

SG431  1 

Sort- Merge 

ST431-ST434  4 

ST441-ST  443  3 

Table  Handling  (Level  ?) 

TH431  1 


Total 


19 
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The  designated  language  elements  in  the  following  proarams  in 
the  L ow- I nt e r med i at e level  of  Federal  Standard  COBOL  should  not  be 
flagged. 


KODULF  NUMBER  OF  PROOPAMS 

Debug 

D6421-DB422  2 

Inter-Program  Communication 

IC421-IC422  2 

Library 

LB421  1 

Relative  1-0 

RL421  1 


Sea mentation 
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13.3  HIGH-INTERMEDIATE  LEVEL  FEDERAL  STANDARD  COFOL 


The  followinci  flaqqing  oro Trams  must  be  compiled/ executed  fcr  purposes 
of  validating  the  compiler's  capability  for  flagging  language  elements  above 
the  High-Intermediate  Level  of  Federal  Standard  COBOL. 


The  designated  language  elements  contained  in  the  following  programs 
must  be  flagged  if  the  compiler  is  in  conformance  with  the  FIPS  PUP  21-1 
flagging  requirements  for  the  High-Intermediate  level  of  Federal  Standard 
COBOL. 


MODULE 


MUMPER  OF  PROGRAMS 


Indexed  I-Q 
IX441-IX442 


Library 

LB441 


Segment  at  ion 
SG441 


So  r t -Me  rqe 

ST441-ST443 


Total 


•-y*-  w m ,TW 
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The  desionated  Language  elements  in  the  following  programs  are 
contained  in  the  High-Intermediate  level  of  Federal  Standard  COEiCL 
and  should  not  be  flagged. 


MODULE 


NIP’PFR  OF  PROGRAMS 


C ommun i cation 

CM431  1 

Detua 

DB421  -DB422  ? 

D8431  1 

I nt er -Hr ogr am  Communication 

IC421-IC422  ? 

I C431-IC432  2 

Library 

LB421  1 

Nucleus  (Level  2) 

NC431  1 


Relative  1-0 

RL421  1 

RL431  1 

Seoment  at  ion 

SG421  1 

Sequential  1-0  (Level  2) 

SR431  1 

Sort -Merge 

ST431 -ST434  4 


Table  Handlinn  (Level  2) 

TH431  1 

Total  19 
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13.4  HIGH  LEVEL  FEDERAL  STANDARD  COBOL 


The  following  flagging  programs  must  he  comp  i l e d/ e* e cu t ed  for  purposes 
of  validating  the  compiler's  flaqgino  capability  for  High  Level  of  Federal 
Standard  COBOL.  The  designated  lanquaae  elements  in  these  programs  are  all 
contained  in  the  High  level  of  Federal  Standard  COBOL*  and  therefore/  they 
should  not  be  flagged. 


MODULE 


NUMBER  OF  FROG  PAMS 


Communi cation 
CN431 


Debug 

DP421-DB422 

DB431 


Int er -Progr am  Communication 
IC421-IC422 
1 C431-IC432 


Indexed  1-0 
IX441-IX442 


L i b r a r y 
L F;  4 2 1 
LR441 


Nuc  leus  (Level  2) 
NC431 


Relative  1-0 
RL421 
RL431 


Seoment  at  ion 
SO  42 1 
SG441 


Sequential  T0  (Level  ?) 
So  4 3 1 


Sort-  ''erqe 

ST431-ST434 

ST441-ST4A3 


Table  Handling  (Level  2) 
TH431 


Total 


65 


■m.* 


I 
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11.  POPULATION  FILE  FORMAT 

The  population  file  source  program  library  is  provided  on  magnetic  tare 
and  has  the  follow i no  characteristics* 

7 - Track 
Even  - Parity 
BCD  - Code 
800  BPS  - Density 

Record  size  is  2400  characters  (30  X 80  character  imanes  deblocked 
by  the  PPLVP74  processor) 

♦Tapes  received  from  NTIS  may  have  characteristics  other  than  those  described 
above  . 


The  Population  File  contains  7? 8o  blocks  and  21856/  records.  The  creation  date 
for  the  population  file  is  77/09/ 30*21 .46.09.  This  version  identification  for 
the  Population  File  is  3.0  (Version  3 Release  0). 


TT.jZF:'^  ■ •*_ 
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A.  PPL VP  74  PROCESSOR  CONTROL  STATEMENTS. 

The  PPLVP74  processor  is  an  intepral  part  of  the  software  container)  in  the 
Program  Production  Library  of  the  Software  Development  Division*  Federal  Opera- 
tions Directorate*  Naval  Data  Automation  Command*  and  is  used  to  naintair 
libraries  of  source  programs  in  a computer  independent  format.  These  yrcorars 
can  be  rendered  computer  dependent  throuoh  the  use  of  the  PPIVP7A  processor. 

The  input  to  PPLVP74  is  broken  up  into  two  sections.  The  monitor  Section 
is  used  to  describe  the  environment  of  the  computer  for  w h i c 1 the  programs  are 
to  be  tailored*  the  type  and  format  of  the  job  control  lanquaqe  necessary  to 
compile  and  execute  the  proorams*  and  to  control  the  amount  of  printed  output 
from  PPLVP74.  The  Update  Section  contains  source  program  updates  which  are  to 
be  applied  to  the  programs  as  they  are  selected  from  the  PPLVP74  library. 

The  Update  Section  also  permits  the  alterina  of  the  job  control  l^nnuane  speci- 
fied in  the  Monitor  Section.  Additionally*  new  programs  can  be  inserted  into 
the  PPLVP74  library  in  the  Update  Section. 

The  commands  in  the  Monitor  Section  are  briefly  described  below: 

♦ALTSYSCODE  Causes  the  any  asterisk  occurring  in  column  1 of 

a source  record  to  be  replaced  with  an  alternate 
system  code. 

♦AUDIT  Causes  the  appropriate  header  to  be  rrnerated  for 

output  of  each  of  the  audit  routines  produced 
for  a 1966  CCVS  validation. 

* PC D-PC PF I L E Used  to  set  a flag  to  indicate  to  P P L V P 7 4 whether 

♦BCD-CONTROL  conversion  of  the  character  set  o*  the  data  con- 

tained in  the  library  should  be  accomplished.  (The 
actual  codinq  which  will  do  the  conversion  must  be 
provided  at  the  time  the  P P L V P 7 4 processor  is 
generated.) 

♦CCVSVERSION  Specifies  which*  if  any*  version  of  the  CCVS  is 

being  used  (68  or  74). 

♦END-MONITOR  Indicates  the  end  of  the  'onitor  Section  and  is 

optionally  followed  by  the  Update  Section. 

♦ENVIRONMENT  Reouests  information  which  is  input  to  the  Monitor 

Section  from  the  Source  Proqram  library  (Population 

File). 

♦IMCV  Causps  columns  76-p0  of  the  Source  File  to  contain 

a sequence  number. 

♦ INITIAL  Initializes  tables  used  by  PPL VP 74. 

♦JCL  Controls  the  generation  of  JCL  statements  durinr  the 

selection  of  an  audit  routine. 

♦LIST  Indicates  the  type  and  amount  of  listinq  required 

of  PPLVP74. 
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★ N 0 D A T A 

★NOSOURCE 

★ OPEN 

★OPTION 

★PRGID 

★RESEQUENCE 

*SA VF-DELFTIONS 

★SOURCE 

★SUPSFT 

★ TEST 

★ UP-POF 


Causes  any  data  follow  ina  an  ‘HEADERS  A TA*  card 
image  to  be  suppressed  when  creating  a Source  File 
or  an  updated  Population  File. 

Causes  all  processing  of  the  Source  File  to  be 
suppressed. 

Causes  the  VPW0RK1  file  to  be  opened  and  those 
Ax  B and  E-cards  with  the  1 z * option  to  be  written 
to  this  file. 

Indicates  options  which  are  to  be  considered  ir 
generating  source  proarams  for  compilation. 

Modifies  columns  5-6  of  the  alphabet  cards  to 
specify  either  the  current  program.  or  the  first 
program  in  a series  of  programs. 

Causes  all  selected  audit  routine  to  be  resea- 
uenced  as  they  are  written  to  the  Source  File 
and  new  Population  File. 

Indicates  final  disposition  of  optional  code 
in  the  source  programs  beinn  selected. 

Controls  the  inform,  at  ion  which  is  written  to 
the  Source  File. 

Causes  a large  group  of  programs  to  be  selected. 

Causes  both  the  Source  F i l o and  the  new  Dopulation 
File  to  be  suppressed. 

Controls  the  generation  of  the  new  Population  File 


ALPHABET  Cards  Used  to  describe  job  control  language  requirements 

and  provide  implementor  defined  name  for  use  in 
COBOL  source  program. 

The  Update  Section  contains  updates  for  the  programs  being  selected  arid 
the  method  of  updating  is  described  under  the  detailed  discussion  of  the 
Update  Section  in  A. 4. 
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A . 1 PPLVP74  COMMANDS  (MONITOR  SECTION) 

The  input  and  control  mechanisms  accepted  by  PPLVP74  are.  a superset  of 
those  accepted  by  PPLVP68.  The  input  to  the  1Q68  VP-routine  will  function 
correctly  using  the  1974  VP-Routine.  This  permits  hoth  the  1968  and  1974 
audit  routines  to  be  managed  using  the  PPLVP74. 

The  format  of  all  commands  beginning  with  the  control  character  (aste- 

risk) is  flexible  to  the  extent  that  the  command  begins  in  Column  1 and  the 
operands  associated  with  that  command  follow  separated  by  a comma  or  one  or  more 
spaces.  The  fixed  format  input  required  by  PPLVP68  is  acceptable  but  unneces- 
sary. The  following  is  a list  of  all  commands  acceptable  in  the  Monitor  Section 
of  PPLVF74  and  their  associated  options. 

A. 1.1  *ALTSYSCODE 


The  *ALTSYSCODE  card  causes  PPLVP74  VP-Routine  to  examine  euer«  record 
oe.ng  written  to  the  Source  File^  and  to  replace  any  asterisk  occurring  in 
column  1 of  the  record  with  the  character  specified  in  the  *ALTSYSCODc  card. 
See  also  the  input  to  PPLVP74. 

♦ALTSYSCODF,  X 
* A L T S Y / X 

May  be  used  as  a Monitor  Section  control  card  only. 


A. 1.2  * AUDIT 


The  *AUDIT  card  is  necessary  for  the  1968  CCVS  to  produce  the  appropriate 
header  for  output  of  each  of  the  generated  audit  routines. 

*A(JDIT*X 

The  X option  is  the  only  option  that  will  be  specified  and  then  only  when 
validating  a COBOL  compiler  with  the  1968  CCVS. 

A. 1.3  *P  C D -POP  FILE/'  *3CD-C0NTRGL 


This  card  indicates  that  PPLVP74  is  to  set  flags  that  can  be  further  used, 
by  coding  inserted  during  implementation  of  PPLVP74,  to  determine  whether  code 
conversion  is  necessary. 

*P  C D -POP  F ILE  YES 

* B C D - P NO 

♦RCD-C/YES 
♦PCD -CONTROL  NO 

The  f laa#  set  by  the  processing  of  the  "♦BCD"  card*  can  be  tested  prior  to  the 
creating  of  data  and  if  necessary  when  code  conversion  is  accomplished. 
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A. 1.4  ‘CCVSVERSION 


This  control  statement  is  used  to  establish  the  necessary  linkage  to  pro- 
cess the  1963  CCVS/  the  1^74  CCVS/  or  in  some  cases  no  CfVS  hut  source  programs 
unrelated  to  compiler  validation. 

*CCVSVEkSI0N,74 
*C C VSVR  63 
*C  CVSVR  NONE 


A. 1.5  * END-MONI T OR 


The  ‘END-MONITOR  card  is  the  last  card  in  the  Monitor  Section  and  acts  as  a 
termination  for  this  portion  of  the  execution  of  PPL  VP 74.  All  control  informa- 
tion has  been  digested  by  the  processor  and  the  commands  specified  will  be  car- 
ried out.  If  there  are  no  updates  to  be  applied  (‘BEGIN -UPDATE ) then  the  next 
control  card  should  be  an  end-of-file  indicator.  See  the  ‘BEGIN -UPDATE  state- 
ment for  further  information. 

*EnD-«0M  tor 

♦ END-'" 

A. 1.6  ‘ENVIRONMENT 


The  ‘ENVIRONMENT  card  is  used  to  simulate  the  inclusion  of  a oroup  of  "cni- 
tor  Section  control  cards.  The  environmental  entries  are  retrieved  from  the 
Population  File  and  logically  "added*  to  the  PPLVP74  control  card  input  files. 

6 list  of  all  environment  entries  (both  for  JCL/Validation/Job  generation  as 
well  as  program  and  option  reouests)  is  listed  in  section  3 of  this  document. 


Operands  can  be  separated  by  one  or  more  spaces  or  a comma. 
‘ENVIRONMENT  op e r and- 1 / ope r a nd -2 r .../  operand-10 


‘ENVIRONMENT  K0000/ LB 1 0C / LR200 / U1 1 03 N A V I C 
(would  be  equivalent  to) 

‘ENVIRONMENT  *0000 
‘ENVIRONMENT  LR1U0 
‘ENVIRONMENT  LB200 
‘ENVIRONMENT  U110SNAVIC 


Roth  of  the  above  examples  would  result  in  the  same  amount  of  input  to  the 
PFLVP74  processor  from  the  environmental  entries  contained  on  the  Population 
File.  However/  the  first  example  would  cause  the  Population  File  to  be  read 
only  once  whereas  the  second  example  would  cause  the  Population  File  to  be  re- 
opened after  each  request  has  been  honored.  when  multiple  environmental 
entries  are  requested  they  are  selected  as  they  are  encountered  on  the  Popula- 
tion File. 


The  results  of  processing  the  first  example  by  PPLVE/4  would  he 
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* E N V I R K.000G*  LB  100*  LP20U*U1  108NAVIC 
COPIED  KC0C0  10  RECORDS 

COPIED  L81CCI  4 RECORDS 

COPIED  L9230  4 R F C 0 R D S 

COPIED  U1 1 08NAVI C 128  RECORDS 

specifically  requested  through  a ‘LIST  ENVIP  statement/  the  entries  wilt 
listed  as  they  are  processed.  See  the  ‘LJS1  statement. 

* IMCV 


i 


The  ‘INCV  card  causes  columns  76-80  of  the  Source  Fite  to  contain  a 
seouence  number. 

*IWCV 

* I M C V YES 

*i:*icv  no 

The  generated  sequence  number  begins  with  00010  and  is  incremented  by  10.  If 
no  operand  is  specified*  YES  is  assumed.  If  no  I.WCV  card  is  processed*  then  the 
sequencing  does  not  take  place. 

The  ‘ I i*  C V card  may  be  located  anywhere  in  the  Monitor  Section. 

A. 1.8  ‘INI T I A L 


The  ‘INITIAL  statement  is  used  to  initialize  the  various  tables  used  by  the 
PPL VP  74  processor  for  storing  the  contents  of  the  alphabet  cards. 

‘INITIAL  ALL  (format  1) 

‘INITIAL  Z * 7 * Z (format  2) 

Z may  be  the  letter  A*  R*  D*  F*  1*  S*  X*  or  T. 

This  is  an  optional  card.  when  present*  it  must  be  in  the  Nonitcr  Section, 
lore  than  one  ‘INITIAL  card  is  allowed. 

Format  1 causes  all  8 alphabet  card  tables  to  be  filled  with  blanks 
immediately. 

Format  2 causes  the  referenced  alphabet  card  table(s)  to  be  filled  with 
blanks  immediately. 

A format  1 card  is  redundant  if  it  is  the  first  card  in  the  'onitor 
Section. 
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A .1 .9 


* J C L 


* J C L SOURCE 

* J C L VPWQRK1 

The  * J C L card  controls  the  qeneration  of  JCL  statements  during  the 
selection  of  the  audit  routine.  All  JCL  statements  (alphabet  caros)  are 
generated  before  and  after  the  appropriate  programs  written  to  the  SOURCE 
P r og ram  file.  Some  JCL  can  be  alternatively  sent  to  the  work  file 
VPWORK1  by  using  the  *Z*  option  of  column  7 of  the  alphabet  card  (i.e. 
all  non  * Z * cards  go  to  the  source  file  while  all  * Z ' cards  go  to  the 
VPW0RK1  file). 

The  *JCL  card  establishes  the  default  file  to  which  the  alphabet 
cards  are  to  be  written.  The  *Z*  cards  are  then  written  to  the  alternate 
file.  The  default  is  as  described  above  and  is  the  same  as  though 
the  ’SOURCE'  option  was  specified. 

When  the  'VPW0RK1*  option  is  specified  then  the  *7*  cards  are 
written  to  the  Source  rile  along  with  the  source  programs  and  all  other 
alphabet  cards  are  written  to  the  words  file  VPW0RK1  . VPV'ORM  can  he 
ussad  as  an  input  to  the  ooerati no  system. 

See  Section  A. 3 for  a discussion  of  the  alphabet  cards  and  the  *?*  option. 
A. 1.10  *L  I S T 


The  *LIST  card  controls  the  amount  of  update  and  control  information  printed  by 
by  the  VP-Routine. 


* L I S T 


operand-l/operanri-?/  ... 


The  allowable  operands  are: 
Operand  Name 


UPDATE  S 

NOUPDA  TE  S 

XCARDS 

CTL 

JCL 

INSERT 

ENVIR 

NOENVIK 

PROGRAMS 

COMPACT 

SOURCE 


Abbreviat ion 


(U) 

(NOU) 

(X) 

(C) 

( J) 

(I ) 

(F  ) 

( NOE  ) 
(P) 

(COM) 

( S) 


The  PROGRAMS  and  UPDATES  options  are  mutually  exclusive.  The  JCL  and  CTL 
options  are  equivalent.  The  default  option  is  UPDATES  if  no  *LIST  card  is 
processed.  There  can  be  more  than  one  ‘LIST  card  present  in  the  t on i t or 
Section  and  each  *LIST  card  can  contain  multiple  options. 
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UPDATES  ( NOUP D A TE S ) - i nd  i c a t es  that  all  updates  are  to  be  listed/ 
i.e./  OLD  and  NEW  replacements/  deleted  card  irraqes/  and 
inserted  card  imaqes. 

XCARDS  - causes  all  *XXXXX*  card  replacements  to  be  listed  as  they 
are  processed/  thereby  showing  the  actual  text  which 
replaced  each  • X X X X X * card. 

CTL  - causes  the  generated  JCL  to  be  listed  for  each  program  selected 
(not  applicable  to  PERMANENT  updates). 

JCL  - causes  the  generated  JCL  to  be  listed  for  each  program  selected 
(not  applicable  to  PERMANENT  updates). 

INSERT  - causes  *INSERT  card  images  to  be  listed  as  they  are 
processed. 

ENVIR  (NOENVIR) -causes  each  record  retrieved  from  an  environmental 
entry  to  be  listed  as  it  is  processed. 

PROGRAMS  - causes  programs  to  be  listed  as  they  are  selected  from  the 
Population  File.  This  has  no  effect  on  proorams  being 
inserted  through  an  *INSERT  command. 

SOURCE  - causes  proorams  to  be  listed  as  they  are  selected  from  the 

Population  File.  This  has  no  effect  on  proorams  being  inecr 
ted  through  an  *INSFRT  command. 

COMPACT  - indicates  that  the  printer  output  should  be  as  compressed 
as  possible/  i.e./  do  not  skip  to  a new  page  for  each 
program  processed. 

EXAMPLE  * L I ST  C TL / X C A RD S / PROG R AM S 

A. 1.11  * N 0 D A T A 


The  *NOD A T A card  causes  any  data  following  a *H  E ADFE/DATA*  card  imaoe  asso 
ciated  with  a selected  program  to  be  suppressed  when  he  Source  File  is  built  or 
an  updated  Population  File  is  created.  The  absence  of  the  DATA****  entrv  in 
one  of  the  ending  (E)  control  cards  has  the  same  effect  as  the  * t 0 D A T A state- 
ment . 

* NOD  A T A 

This  card  is  used  on  any  system  where  the  assumed  method  of  placing  data 
inline  must  be  modified  such  that  the  data  is  on  a different  device.  The  method 
of  placing  the  data  on  the  alternate  device  is  left  to  the  user.  'ote/  however 
that  the  D-cards  are  released  to  the  Source  File  in  spite  of  the  presence  of 
the  * NO  DATA  card.  • 
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A. 1.12  *NOSOURCE 


The  *NnSOURC  E card  causes  the  openinq/  writino/  and  closing  cf  the  Source 
File  to  be  suppressed. 

♦NOSOIIRCF 

The  NO  option  of  the  *S0IJRCE  card  has  the  same  effect.  The  *N0SCURCE  caret 
is  never  used  during  a validation. 

A. 1.13  ♦OPE*  v 


The  *0PEN  card  causes  the  VPwOREI  file  to  be  opened#  and  causes  A,  R and  E- 
cards  with  the  • Z * option  to  be  written  to  this  file. 


♦OPEN 


VPWORK 1 


If  this  card  is  not  present#  the  cards  will  never  be  released. 


A. 1.14  * C P T 


The  OPTION  card  causes  card  images  on  the  Population  File  identified  by  a 
code  to  be  deleted  when  the  Source  File  is  created. 

*0PT  n X (format  1) 


♦OPTION 
♦OPT  I ON  1 0 
♦OPT  ION  1 9 


(format  2 ) 


Format  1 allows  one  of  the  26  option  switches  to  be  set. 
n is  the  number  1#  2#  t hrouah  26. 

X is  any  letter  of  the  alphabet. 

Format  2 allows  for  a switch  to  be  set  via  one  option  statement: 

♦OPTION  - 1 throuqh  9 

♦ OPT  ION  1 0 - 10  throunh  1° 

* OP  T I ON  1 9 - 19  through  26 


In  the  case  of  format  2 all  switches  in  question  must  contain  a value. 


♦OPTION 


A#  X#  # F 


This  results  in  the  following: 


Switch  number 


Value 
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2 

T, 

A 

5-9 


blank 

E 

blank 


The  default  PPLVP74  (Version  3.0)  switch  settings  are  as  follows: 


Switch  number 


Value 


1 

2 

3 

4 

5 

6 
7 
P 
9 

10 

11 

IP-26 


A 

E 

H 

L 

n 

(blank) 

Y 

c 

(blank) 

(blank) 

T 

(blank) 


’'ore  than  one  *0PTn  card  may  be  present  in  the  'onitor  Section. 

The  follow inn  meaninos  are  attached  to  each  number/letter  combination 
for  the  1 968  CCVS. 


Switch  number 


Value 


Comment 


1 


2 


3 


4 


A 

R 

E 

F 

H 

I 

L 

M 


The  1974  CCVS  uses 
a dd i t ions  . 


Generate  all  source  statements  referring  to  sy step- 
switches. 

Delete  all  references  to  system  switches. 

Generate  all  CLOSE  UNIT  statements. 

Delete  all  CLOSE  UNIT  statements. 

Generate  all  CLOSE  REEL  statements. 

Delete  all  CLOSE  PEEL  statements. 

Generate  references  to  'PEVFRSFD*  in  all  OPEN 
statements. 

Delete  references  to  'REVERSED*  in  all  OPEN 
statements. 

the  same  switches  as  the  1968  CCVS  with  the  followino 


Switch  Number 


Value 


C omment 
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6 


7 


? 


9 


10 


11 


X Generate  dump  routine  to  dump  alt  files  in  1-0 

audit  routines  in  which  one  or  more  of  the  tests 
failed. 

blank  Eliminate  the  dump  coding. 

Y Write  statement  for  the  audit  routine  report  will 

use  the  AFTER  PAGE  and  AFTER  integer  options. 

Z Write  statement  for  the  audit  routine  report  will 

only  use  the  AFTER  integer  option. 

C Generate  the  ’VALUE  OF’  phrase  for  all  F i L 

Description  entries. 

blank  Suppress  the  'VALUF  OF*  phrase  for  all  File 

Description  entries. 

G Generate  the  optional  X card  for  the  VALUE  OF 

phrase  in  the  File  Description  entry.  (X-69) 

blank  X-6 9 is  suppressed. 

J Generate  the  extra  X card  for  indexed  I - 0 files. 

blank  Additional  X card  is  suppressed. 

T (Default  switch  PPLVP74)  maximum  size  key  for 

indexed  files  (?9)  characters. 

U Minimum  size  key  for  indexed  files  (k)  characters. 


A. 1.1 5 * P R G I D 


*PRGID  xxxxxxx 

The  *PRGID  card  is  used  to  modify  the  effect  of  the  number  in  columns  5-6  of 
alphabet  cards  (see  A - c a r d # 3-card#  etc.).  The  xxxxxxx  may  be  either  the  word 
"CURRENT"  or  "FIRST”.  Normally  the  number  in  columns  5-6  causes  the  orooram-id 
of  a main  program  to  appear  in  the  program-id  column  for  all  of  the  associated 
subprograms#  as  well  as  the  main  program.  But  if  a *PRG1D  CURRENT  card  has  teen 
encountered#  the  prooram-id  of  the  subprogram  itself  will  appear  in  the 
program-id  column.  A * PR  GI D FIRST  card  is  used  to  cancel  the  effects  of  a 
previously  processed  *PRGID  CURRENT  card  and  has  no  other  effects. 

A *PRGID  CURRENT  card  may  ap»ar  anywhere  in  the  Monitor  Section  or  in 
an  *INSFKT-C  table  modification.  A *PRGID  FIRST  card  may  appear  only  in 
a table  modification. 

A. 1.16  *RESFGUENCE 


The  ^RESEQUENCE  card  causes  all  selected  audit  routines  to  be  reseguenced 
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as  they  are  written  to  the  Source  Fite  and  new  Population  Fite.  This  card  may 
appear  anywhere  in  the  Monitor  Section.  It  is  not  used  durinq  validations. 


To  resequence  audit  routines  individually/  see  Plus-cards  ( + ). 
A .1 .1 7 * S A VF  - DELE  TIONS 


The  ‘SAVE  - DELETIONS  control  card  indicates  the  final  disposition  of 
optional  code  in  the  source  programs  being  selected. 

‘SAVE  - DELETIONS  YFS 
* S A V E - DELETIONS  NO 

The  *YES*  option  causes  any  optional  code  which  is  not  tc  be  compiled  to 
be  converted  to  comment  lines  ( i . e . / in  Column  7).  This  results  in 

the  sequence  numbers  of  the  source  programs  to  be  complete  instead  of 
missing  optional  source  statements  which  were  not  compiled.  The  default  is 
the  NO  option. 

A. 1.1 3 * SOURCE 


The  *S0URCE  card  affects  the  information  which  is  written  to  the  Source 
File  (S0URCE-C0B0L-PR05RAMS) . 


‘SOURCE 

YES 

( f o rma  t 

1 ) 

‘SOURCF 

NO 

(format 

?) 

♦SOURCE 

CTL 

(format 

3) 

The  YES  option  has  effect  only  when  the  PERMANENT  option  of  the  * F F GIN-UPD A Tf 
control  card  is  specified.  The  effect  is  to  create  a Source  File  which 
is  identical  to  the  New  Population  File  except  that  it  does  not  contain  ‘HEADER 
card  images/  ‘FILES*  card  imaoes/  or  environment  data  sets. 

The  NO  option  causes  all  OPEN/  CLOSE,  and  WRITE  statements  for  Source  File 
to  be  bypassed  in  the  VP  Routine. 

The  CTL  option  causes  all  COBOL  lines  of  audit  routines  and  environment 
data  sets  to  be  suppresed  for  the  Source  File.  Thus,  the  Source  file  will  con- 
tain system  control  languaqe  only.  The  CTL  option  is  the  only  option  of 
the  ‘SOURCE  card  that  may  be  used  during  a validation. 

The  interaction  of  the  ‘SOURCE  card  with  thp  ‘PE6I N-UPD AT E card  is  illus- 
trated in  the  decision  table  below  (a  hyphen  means  a card  is  absent): 
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‘BEG IN-UPD A TF  card 

PERM 

PERM 

PER.-  PERm 

‘SOURCE  card 

YES 

-J 

H- 

L-J 

O 

2 

YES 

NO 

CTL 

Source  File  created 

X 

X 

X 

X 

X 

COBOL  lines  present 

X 

X 

X 

control  cards  present 

X 

X 

X 

XXXXXnn  cards  replaces 

X 

X 

X 

A. 1.1 9 ‘SUBSET 

The  ‘SU^SF  T card 

causes 

a large  group 

of 

proarars 

to  be 

selected. 

‘SUBS E T -X 
‘S'J^SET-ALL 


(for  n at  1) 
(format  2) 


X is  the  letter  'A*,  * 9 * / 1 C * / or  * D * representing  the  four  federal  levels  of 

COBOL.  See  FIPS  PUB  21  for  the  1968  CCVS  levels/  and  TIPS  PUP  21-1  for  the 
1974  CCVS  levels. 

More  than  one  format  1 card  is  atlowed.  Format  1 works  in  the  same  manner 
as  a format  1 ‘ENVIRONMENT  card/  except  the  groups  selected  are  laroer.  The 
results  of  a ‘SUBSFT-X  card  may  be  modified  by  followina  with  finus-carris. 

Format  2 causes  all  source  programs  on  the  Population  File  to  be  selectee. 
The  library  text  data  is  also  selected.  Any  o t hD  r selection  cards  in  the  input 
to  PPLVP74/  includin'?  •’  i nus -c  a rd  s / are  ignored. 

A.1.2U  ‘TEST 


The  ‘TEST  card  causes  both  the  Source  File  and  the  new  Population  File  to 
be  suppressed.  It  is  used  only  for  maintenance  operations  on  the  VP  Routine 
and/or  to  examine  the  control  cards  beinn  Generated. 

‘TEST 

A.  1.21  ‘UP-POP 


ft.  ‘UF-POP  card  controls  the  generation  of  the  new  Population  File. 

• UP-POP  xxx 
, • either  ‘YES*  or  ’NO*. 

■ > card  overrides  the  option  specified  on  the  *F»E6 1 N- tlPO  A TF  card, 

c-.'-s  the  new  Population  File  to  be  unconditionally  suopresseo/ 

♦’  ■ forces  the  file  to  be  created.  However/  if  PERMANENT  is 

n is  specified/  the  XXXXXnn  cards  on  the  new  Fooulation  File 
.’iie  all  of  the  ‘HEADER/  ‘FILES*/  and  environmental  data 
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set  card  images  will  not  be  copied. 

The  interaction  of  the  *UP-POP  card  with  the  ★ BEG I F -UPD  A T F card  is 
illustrated  in  the  decision  table  below  (a  hyphen  means  the  card  is 
absent ) : 


★BEGIN- UPDATE  card 
★UP-POP  card  YES 

NO 

- 

PF  Rtf 
YES 

PE  R v 

NO 

PFRP 

Up-Pop  File  created  X 

★HEADER*  etc  present 
XXXXXnn  cards  replaced  X 

X 

x 

X 

X 
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Program  selection  is  the  request  for  one  or  more  proqrarrs  (cr  sets  of  pro- 
grams) which  are  to  be  operated  on,  resulting  in  an  updated  Population  File 
or  a source  output  file  ready  for  further  processing  by  the  operating  system. 


A. 2.1  PLUS-Cards 


A Plus-card  causes  the  named  program  set  to  be  selected  and  optionally 
edited  in  a predefined  manner. 

+ZZZZZ*N*VVV*YYYYY*P 

The  ' + * may  be  used  interchangeably  with  the  character  * P ' . 

Hill  is  the  five  character  program  name  and  is  the  only  required  field  in  the 
Plus-card.  The  fields  are  positional  in  nature  and  therefore  if  the  second 
field  is  net  present / its  absence  must  be  shown  as  a null  field. 

PZZZZZ **VVV 

N is  a local  option  that  will  be  applied  to  this  program  only  (see  the  * c P T card 
in  the  Monitor  Section). 

+RL101*X  wojld  result  in  all  optional  card  images  containing 
an  ’X*  in  column  7 to  be  selected*  column  7 blanked 
and  the  card  images  written  to  the  source  output 
file. 

For  a permanent  update*  the  contents  of  the  second  field  are  ignored. 

V V V represents  up  to  3 characters  which  will  be  used  in  identifying 
the  new  version  of  the  program  set  selected.  In  the  case  of 
COBOL  this  is  placed  in  card  columns  7^-ep  of  each  COBOL 
image  as  it  is  selected. 


YYYYY  represents  the  new  name  by  which  the  proerm  will  fce  known. 
This  includes  program -id  placement  in  alphabet  cards*  as 
well  as  the  updated  Population  File  (if  created).  A separate 
Plus-card  is  necessary  to  rename  the  second  program  in  a 
program  set . 


R when  present  indicates  that  the  programs  contained  in  the  pro- 
gram set  are  to  be  reseouenced.  (See  the  ‘RESEQUENCE  Command  in 
the  Monitor  Section.) 


A request  for  a program  set  to  be  resequenced  will  cause  each  of  the  pro- 
grams in  that  set  to  be  reseouenced.  A Plus-card  may  be  present  for  each  of  the 
proarams  included  in  the  set  if  any  of  the  aforementioned  s wi tch e s /cha nge s are 
to  be  applied.  Assuming  the  program  set  is  made  up  of: 


A. 2 SOURCE  PROGRAM  SELECTION  (MONITOR  SECTION) 
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Rt  101 
RL102 
RL103 
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+RL101////R 

results  in  all  three  programs  being  selected  and  reseauenced  after  any 
u pdat  i ng  app lied. 

+RL101/X/1  .F/RC101/R 
+RL102/X/1  .F/RC1G2/R 
+RL103///RC1D3 

results  in  the  name  of  each  program  being  chanaed;  the  version  of  RL101 

and  RL107  being  chanaed  to  1.F;  local  option  switch  *X * heino  applied  to  PL101 

and  KL 1 02  and  the  resequencing  of  RL1D1  and  RL102. 

The  Plus-card  assumes  the  presence  of  a program  on  the  Population  cile  end 
is  not  used  when  programs  are  "selected"  by  insertion  in  the  Update  Section. 

A. 2. 2 b’lNUS-Cards 


A fiinus-card  causes  a program  set  which  was  previously  selected  by  an 
earlier  control  card  to  be  deleted  from  the  selction  list. 

-ZZZZZ 

*-*  and  *M'  cap  be  used  i n t e r ch angeba l v . 

ZZZZZ  represents  the  5 character  name  of  the  program  set. 

This  command  logically  removes  the  name  of  the  program  set  from  the  list  of 
program  sets  to  be  processed  and  applies  only  to  sets  of  programs/  not  indi- 
vidual programs  included  in  a set. 
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A. 3 ALPHABET  CARDS/JOB  CONTROL  LANGUAGF  GENERATION  (MONITOR  SECTION) 


The  alphabet  cards  are  used  for  two  functions  by  the  P P L V P 7 4 processor. 
The  * X * cards  are  used  to  replace  implementor  names  present  in  CCEOL  source 
programs.  The  other  alphabet  cards  (A,  R,  D , E , I , S * and  T)  are  used  to 
define  the  job  control  language  to  be  generated  for  each  program  as  well  as 
the  order  in  which  the  control  statements  will  be  generated.  The  following 
is  a description  of  the  alphabet  cards. 


x-cards  are  used  to  provide  implementor  defined  syntax  to  be  used 
within  source  programs.  A list  of  the  X-cards  required  for  the  1968 
and  1974  COBOL  Compiler  Validation  Systems  is  included  in  Section  3 .7. 

1-cards  are  produced  as  the  first  output  from  PPLVP74. 

B-cards  are  produced  before  each  program  generated  and  ere  generated 
in  the  order  specified  in  columns  3 and  4 of  the  B-card.  See 
discussion  of  the  format  of  the  alphabet  cards. 

E-cards  are  produced  after  each  prooram  and  are  oenerateri  in  the 
order  specified  by  columns  3 and  4 of  the  E-card. 

T-cards  are  produced  as  the  last  output  of  PPLVP74. 

A-cards  represent  file  a s s i qnmen t / s w i t c h setting  job  control  lanouaoe 
and  are  oenerated  when  the  special  indicator  'oRFAK****  is  found 
on  a B or  E card  for  each  program  selected. 

S-cards  represent  sort  file  assignment  job  control  lanquage  and  are 
generated  when  the  special  indicator  ’SORT***'  is  found  in  a B or 
E card  for  each  orogram. 

D-cards  are  used  to  sandwich  data  which  follows  source  programs. 

The  placement  of  the  data  and  its  related  control  cards  is  desianated 
by  the  special  indicator  ’DATA****’  in  an  E card. 


E XAMPLE 

1-01  first  initial  job  control  statement  OPTIONAL 
1-02  Second  initial  job  control  statement  OPTIONAL 


B-C1  First  job  control  statement  to  precede  each  program 
P-02  Second  job  control  statement  to  precede  each  program 
P -03  Third  job  control  statement  to  precede  each  program 


First  job  control  statement  to  succeed  each  program. 


*2 


E-lil 


.i - -.1 L-u+t 
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vr 


F-02  Second  job  control  statement  to  succeed  each  program 
E-03  Third  job  control  statement  to  succeed  each  program 


T-01  First  terminal  job  control  statement  OPTIONAL 
T -02  Second  terminal  job  control  statement  OPTIONAL 


The  job  control  statement  is  punched  in  the  alphabet  card  as  though 
column  8 was  column  1 of  the  generated  control  card.  There  are  indicators 
which  suggest  when  the  various  job  control  statements  are  to  be  generated 
and  whether  unique  information  is  to  be  placed  in  each  job  control  statement. 

A. 3.1  A-Card 


A-cards  represent  operating  system  assignment  instructions  for  files# 
switches#  and  other  hardware  features.  There  is  a direct  relation  between 
the  XXXXXnnn#  X-cards  and  A-cards. 


0 1 2 8 
1234567^^012345^7890 0 


0 1 2 8 
1234567^^012345^7890 0 


A -nn  i i 

ass i onme  nt 

instruction 

(format 

1 ) 

A Pnn i i 

assignment 

instruction 

(format 

2) 

A D nni i 

ass ionment 

instruction 

(format 

3) 

A Snn i i 

ass i gnment 

i nst  ruction 

(format 

4 ) 

Format  1 - 

file  created 

and  destroyed 

in  this 

run. 

Format  2 - file  created  in  this  run  and  passed  to  next  run. 

Format  3 - file  created  in  previous  run  and  destroyed  in  this  run. 

nn  - corresponds  to  nn  on  X-nn  cards  and  XXXXXnnn  card  images.  01 
through  70  for  format  1#  01  through  37  for  formats  2 and  3. 

ii  - first  column  of  present  program-id  for  generated  assignment  card# 
01  through  75.  If  00  or  blank#  program-id  will  not  be  generated.  If  column 
ii  of  the  generated  card  contains  a " J " and  the  present  program  is  a sub- 
program# the  orogram-id  of  the  main  proqram  will  be  oenerated  in  its  nlace. 
If  column  ii  of  the  generated  card  contains  a • 9 * or  a • C * a 1 or  2 digit 
sequence  number  (based  on  the  number  of  jobs  related)  will  be  generated  at 
this  point. 

Column  8 becomes  column  1 of  created  instruction#  column  9 lecomes 
column  2#  etc. 


A-cards  may  be  placed  either  in  the  fonitor  Section  or  in  the  body  of  an 
IhSFRT-C  table  modification. 


If  either  format  2/  3/  or  4 is  requested  (because  of  information  on  *FJlFS 
card  image)/  and  is  not  present/  default  is  to  format  1. 

Examples : 

0 12  3 4 5 

1 234  5678901 234  5678901 2 34 56789C1 2 345676901 234 56  7890 


A-01 

//TAPE  1 

DO 

D S N = T A F F 1 /UNI T = 2400 

AP01 

//TAPF1 

DD 

DSN=TAPE1/UNIT=240O/DISP=(NEW/ 

PASS  ) 

A D 0 1 

/ / TA  PEI 

DD 

DSN=TAPF1 / UNI T=2400/D I SP=( OLD/ 

h E L r TE ) 

ASCI 

/ / TAPF 1 

DD 

DSN=TAPE1 /UNIT =240 C/DISP  =(0LD 

/PA  f S ) 

X-01 

UT-S-TAPE  1 . 

A-01 

$ 

TAPE 

T 1 / x 1 P 

AP01 

$ 

TAPE 

T 1 / x 1 SR 

X-01 

T 1 . 

3.  A-01  MONSf  !*i  R 1 / A 1 

X-01  TAPE-UNIT  MR  1 . 

In  example  1/  all  four  formats  of  the  A-card  are  present.  In  example  2/ 
only  formats  1 and  2 are  represented.  A request  for  format  7 (ADrn) 
results  in  a default  to  format  1 (A-nn) . In  example  3/  only  format  1 of  the 
A-card  is  present.  Any  references  that  require  APnn  or  (Dnn  results  in  the 
A-nn  card  being  venerated.  The  complexity  of  the  A-cards  depends  on  the  com- 
plexity of  the  operating  system.  The  PPLVP74  processor  can  be  oene  rated  sue) 
that  it  will  accept  the  * A - * or  all  'A*  type  cards.  This  may  be  a factor  in 
the  amount  of  memory  required  to  execute  PPLVP74. 

A. 3. 2 B-Card  and  E-Card 


B-cards  and  F-cards  represent  operating  system  control  lanouaqe  instruc- 
tions which  are  to  be  placed  at  the  beginning  and  end  of  each  C0PCL  oroorem. 

0 12  3 

1234567  8901234567890123456789012345 


R-kkmmy  system  language  instruction  (format  1) 

E-kkmmy  system  languaqe  instruction 

B-kk  y special  indicator  (format  2) 

E-kk  y special  indicator 


kk  - numters/  beginning  with  01  for  first  B-card  and  first  l-card/  incre- 
menting by  1 for  each  successive  card.  The  default  limit  is  20  tor  the  system 
generation  information. 


mm  - first  column  of  present  program-id  for  created  system  control  instruc 
t ion/  01  through  75.  If  00  or  blank/  prooram-id  is  not  generated.  If 
column  mm  of  the  generated  card  contains  a "J"  and  the  present  oroarjm  is  a sub 
program/  the  program-id  of  the  main  program  is  generated  in  its  place.  If 


column  mm  of  the  generated  card  contains 


then 


d i e i t 


84 
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number  is  generated.  This  number  is  the  relative  number  of  the  jobs  (program 
sets)  being  procesed. 

y - one  of  the  following  characters: 

Blank  - instruction  generated  for  every  audit  routine  that  is  not  a 
called  program. 

A - combines  features  of  "blank"*  J*  L*  and  T. 

J - instruction  generated  at  job  level  only*  i.e.*  before  first  pro- 
gram in  job  or  after  last  program  in  job.  Prevents  generation 
of  instruction  between  proarams  of  data-passino  sets*  or  between 
calling  and  called  programs. 

K - combines  functions  of  J and  L. 

L - instruction  generated  for  library  data-creating  program  only. 

S - combines  functions  of  "blank"  and  T. 

T - instruction  generated  for  called  pronrairs  only. 

Z - instruction  generated  on  VPW0RK1  file  only.  (See  A.  1.9  the 

*JCL  command  for  additional  information). 


Column  P becomes  column  1 of  generated  instruction*  column  9 becomes 
column  2*  etc.  The  entire  alphabet  card  may  be  used. 


P-cards  and  F-cards  in  either  Monitor  Section*  or 
INSERT-C  table  modification. 


in  the  body  of  an 


Special  indicator  may  be  onp  of  the  following: 


BREAK*** 


causes  all  A-cards  which  correspond  to  the  *FILES  card 
image(s)  of  the  current  program  to  be  released. 


SORT****  - causes  all  S-cards  to  be  released  if  the  current  pro- 
nraro  uses  a sort  (X  in  column  71  of  the  *FILES  card 
image) . 


DATA****  - causes  all  D-cards  to  be  released  if  the  current  proorarr 
is  followed  by  an  *HEA0FR*DA TA * card  imaoe  and  data.  F ay 
appear  only  on  an  F-card. 

E xamp les : 

3 andE-Cards  G enerated  System  Instructions 


0 12  3 

1 2345678901234567890123456789012345 


0 12  3 

12  34  567*9(1 1234  5 6 7890 12  34  5 E7&OQ 


(IPM  OS/VS) 

9-0106J//A91*****  J OP  * F TC 
3-02  //STEPA  EXEC  COB 

3 -03  //COB.SYSIN  DD  * 

E -01  /* 

E -02  BREAK*** 

E -03  /* 

A-36  //GO. PRINT  DD  SYS0UT=A 

♦ NC 101 


//A91NC101  J 0 3 * E T C (example  1) 

//STEPA  EXEC  CCFi 
//C0P.SYSIN  DD  * 

000100  IDFNTI F I C AT  ION  DIVISION. 

. (source  program  NC101) 

/* 

//GO.  PRINT  DD  SYS0IIT  = A 
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/* 


(HIS  GCOS) 

E-0116JS  SNUMB 
H-Q2  J$  IDEM 
3-03  $ COBOL 


-0 A P INCODE 

-01  J EXECUTE 

E -02  ? LIMITS 

E -03  BREAK*** 

E-CA  JS  ENDJOB 

A -36  $ SYS  OUT 


+ NCI  01 


* -k  * ★ * 

ACCOUNT, ETC 
N D E C K 
IBMC 


PI 


$ 

$ 

S 

s 

000100 


SNU^B  NC101  (example  ?) 
I DENT  ACCOUN T,FTC 

COBOL  NDFCK 
INCODE  IB^C 

IDENTIFICATION  DIVISION. 


. (source  program  N C 1 (1 ) 

$ E XF  CUTE 

S LIMITS 

$ SYSOUT  PI 

S ENDJ0R 


( UNI  VAC  EXEC-8) 

3-0108J9RUN  ABCDE,ACCT,ETC 
B -02  BREAK*** 

B -03  aCOB,BESI 
E -01  axoT 
E -02  S F I N 

A -36  3ASG,T  TAPE1,8C.,123A5 
+ \ C 1 0 1 


SPUN  NC101 , A CCT, ETC 
-S’ A SG  , T TAPE1 ,8C . , 1 23A  5 
rCOB,PESI 

000100  IDENTIFICATION  DIVISION 
. (source  program  NCI  01) 

S’  X G T 

PF  IN 
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A. 3. 3 D-Card 


— 

D-cards  represent  operating  system  control  language  that  precedes* 
follows*  or  surrounds  in-line  data. 

D 1 2 

1234567S 90 1234567890 

D-kkmm  system  language  instruction 

r 

kk  - may  be  either  01  or  02. 

mm  - first  column  of  present  program-id  for  created  system,  language 
instruction*  01  through  75.  If  00  or  blank*  program-id  is  not  aerierated. 

Column  P becomes  column  1 of  generated  instruction*  column  9 becomes 
column  2*  etc. 

The  0-01  card*  if  present*  is  released  in  front  of  the  data*  and 
the  D-02  card*  if  present*  is  released  behind  the  data. 

A. 3. 4 I-Card 


I-cards  represent  the  system  control  language  needed  at  the  initial 
position  of  a jobstream. 

0 12  3 

12345678901234567890123456789012345 

I-kk  system  lanpuaae  instruction 

kk  is  a number  beginning  with  01  for  the  first  I-card*  incrementing  tv 
1 for  each  successive  card.  The  default  limit  is  10  and  may  be  modified  at 
gene r at  ion  time. 

Column  P becomes  column  1 of  generated  instruction*  column  9 becomes 
column  2*  etc.  The  entire  card  may  be  used. 

The  I-cards  are  released  immediately  before  the  o-cards  of  the  first 
selected  program.  I-cards  are  entered  into  the  VP  Routine  as  Monitor  Section 
control  cards. 

A .3.5  S-C  ard 


S-cards  represent  the  operating  system  control  lanouage  instructions 
necessary  when  a COBOL  program  contains  the  SORT  verb. 

0 1 2 
123456789012345^7890 

S-kkmm  system  lanouage  instruction 
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kk  - numbers/  beginning  with  01  for  first  S-card/  incrementing  by  1 for 


each 

successive 

card. 

The  default  limit  is  5 and 

can  be 

modified  at  aenera- 

1 

t ion 

time. 

mm  - first 

column 

of  present  program-id  for 

created 

system  control  instruc 

t i on  / 

Cl  through 

75. 

If  00  or  blank/  program-id 

is  not 

aene  rated . If 

column  mm  of  the  oenerated  card  contains  a "J"  and  the  present  program  is  a 
subprogram/  the  program-id  of  the  main  program  is  generated  in  its  place. 

Column  8 becomes  column  1 of  generated  instruction/  column  9 becomes 
column  2/  etc. 

S-cards  may  be  placed  either  in  Monitor  Section/  or  in  the  tody  of  a 
table  modification. 

Examples: 

0 12  7 4 

1234 5678901 23* 5b 7390 1234 56 78901 2 345 6 7890 


1 . 

S-01 

/ /SYSWK1  r>  D 

DSN  = SYSUK1  /UNI  T = 2400 

S-02 

//SYSWK2  00 

DSN=SYSWK2/UNIT=2400 

S-03 

/ /SYSWK3  OD 

0 SN  = S YSWK3/UNI T = 2400 

2 . 

S-C1 

$ 

FILE 

SI /X1R 

S-02 

$ 

FILE 

S2/X2R 

3. 

S-01 

aJ  A S G * T 

X A . / 

F///300 

S-02 

5 A SG  ✓ T 

XB./ 

F///30C 

A.  3. 6 T-Card 


T-cards  represent  the  system  control  lanouaae  needed  at  the  terminal 
oosition  of  a jobstream. 

0 12  3 

12345678901 2345678901 234567890 

T-kk  system  language  instruction 

kk  is  a number  beginning  with  ni  for  the  first  T-card/  incrementing  by 
1 for  each  successive  card.  The  default  limit  is  5 and  can  be  modified  at 
g ene  r at  ion  time. 

Column  8 becomes  column  1 of  the  generated  instruction/  column  9 becomes 
column  2/  etc.  The  entire  card  may  be  used. 

The  T-cards  are  released  immediately  after  the  F -cards  of  the  last 
selected  prooram.  T-cards  are  entered  into  the  VP  Routine  as  Monitor  Section 
control  cards. 
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A. A PPLVP74  COMMANDS  (UPDATE  SECTION 

The  following  PPLVP74  commands  are  used  in  the  Update  Section  and  are  used 
in  inserting  new  data  sets/programs  into  a Population  File  and  also  in 
making  chances  to  existinq  source  proarams. 

The  Update  Section  begins  with  the  *BEG I N- UPD A TE  card  and  terminates  with 
the  *END-UPDATE  card.  There  are  two  additional  control  cards  recoanized  in  the 
Update  Section. 

♦START  (precedes  update  cards) 

♦INSERT  (precedes  a data  set  to  be  inserted) 

There  are  several  options  which  enable  a variety  of  tasks  to  be  accomplished. 


A. 4.1  ♦BEGIN -UPDATE 


The  *BE G 1 N-UPD A TE  card  is  the  first  card  of  the  Update  Section  and  must 
immediately  follow  the  *END-M0NIT0P  card. 

♦ EE  GIN- UPDATE  (format  1) 

♦BEGIN -UPDATE  PERMANENT  (format  ?) 

♦BEGIN*  PERMANENT 

♦BEGIN-UPD ATE  INITIALIZE  (format  7) 

* BEG  I N-UPD ATE  RELATIVE  (format  4) 

Only  1 operand  can  be  specified  in  the  *BEGIN -UPDATE  card. 

Format  1 causes  the  Population  File  to  be  opened  and  assumes  that  programs 
are  being  selected  for  compilation/execution. 

Format  2 causes  both  the  Population  File  and  the  new  Population  File  to  be 
opened.  All  alphabet  cards  are  ignored  and  *XXXXnnn  cards  are  not  replaced. 

All  updates  and  insertions  which  follow  are  applied  to  the  new  Population  File. 
This  option  should  not  be  used  for  a validation. 

Format  3 causes  PPLVP74  to  assume  that  a new  Population  File  is  being 
created  from  scratch.  The  absence  of  the  Population  File  (i.e.*  not 
assigned)  will  cause  the  same  assumption. 

Format  4 is  not  used. 

A. 4. 2 * I NSE  R T 


The  *INSERT  function  allows  information  to  he  introduced  to  the  PPLVP74 
processor  in  the  Update  Section. 

♦ INSERT  aaaaa a * z z z z 7 * S Y SC OD E * x (format  1) 
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★INSERT-C 

aaaaaa/zzzzz 

(format 

2 ) 

★INSFRT-P 

aaaaaa/zzzzz 

(format 

3) 

★INSERT-D 

aaaaaa/zzzzz 

(format 

4) 

★INSERT-B 

aaaaaa/zzzzz 

(format 

5) 

aaaaaa  is 

e it  her  the  word 

'*  F I ° S T"  / "BEFORE"/ 

"AFTER”,  or 

"LAST". 

zzzzz  is 

a five -character 

program-id.  It  must  be  present 

when 

"PEFORE/AFTER"  is  used/  and  is  ignored  when  " FIRST /LAST”  is  used. 

SYSCODE  is  optional.  U'hen  present/  it  causes  the  PPL VP74  processor 
to  read  the  next  non-blank  character  and  use  this  as  an  alternate 
system  code  for  this  insertion.  (This  permits  system  JCL  to  be  read 
and  coded  with  an  '* 1 asterisk  in  column  7 which  is  replaced  by  the 
specified  system  code  as  it  is  written  out  to  the  Source  File.) 

All  formats  of  the  ‘INSERT  card  are  always  followed  by  one  or  more  cards 
called  the  body  of  the  insertion  (or  the  body  of  the  table  modification  in 
format  2),  which  is  in  turn  followed  by  an  *FND-INSERT  card.  The  ‘INSERT 
card/  the  body/  and  the  *END-INSEET  card/  taken  collectively/  is  called  the 
insertion  or  the  table  modification.  The  body  of  a format  1 insertion  con- 
sists of  data  cards  or  operating  system  control  cards  with  the  character  in 
column  1 replaced  by  an  asterisk.  (This  is  to  disouise  the  system  control 
card  such  that  it  can  be  read  through  the  system  input  file.)  The  character 
normally  used  in  column  1 is  punched  in  the  * I N S E R T card.  When  the  BFFOcF/AFTFI? 
option  is  used/  the  inserted  cards  are  written  to  the  Source  File  immediately 
before  the  F>-Cards  of  the  program  designated  by  zzzzz  (zzzzz  need  not  te 
selected)  or  after  the  E-cards  of  the  program  designated  by  zzzzz.  When  the 
FIRST/LAST  option  is  used/  the  inserted  cards  are  written  after  the  I-cards 
or  after  the  E-cards  of  the  last  selected  pronram. 

The  body  of  a format  2 table  modification  consists  of  alphatet  cards  and  a 
limited  number  of  PPLVP74  control  cards.  These  cards  are  not  written  to  any 
file;  each  card  is  immediately  processed  as  if  it  had  been  read  in  the  vonitor 
Section.  The  following  are  the  allowable  control  cards: 

★OPTION 

★PRGID 

★LIST 

★BCP-POPF  HE 
★BCD-CONTRGL 

Alphabet  cards  (except  * I ' which  would  have  no  meaning) 

Format  3 insertions  are  generally  not  used  for  validations/  and  may  be  used 
in  conduction  with  any  of  the  options  of  the  *EF GIN-UPDATE  card.  The  body  of 
the  insertion  consists  of  a source  program  or  library  data  set/  including 
the  ‘HEADER  and  *FILFS  cards.  The  program  or  data  set  is  seouenced  (incre- 
menting by  100)  and  stored  in  the  updated  Porulatiop  Pile-  or  written  to  the 
source  output  file. 

Format  4 is  used  to  insert  data  which  logically  follows  a source  program. 

If  trie  data  exists  on  the  Population  File  then  this  permits  the  data  to  be 
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logically  replaced  by  the  text  within  the  *INSERT-D/  *END-INSFRT  brackets. 

Format  5 is  used  to  create  source  programs  from  a library  of  kernels  anri 
the  resultant  output  written  either  to  the  Population  Fil»  or  the  Source  File. 

Insertions  and  table  modificatons  are  placed  in  the  Update  Section/  alter- 
nating with  update  groups  as  appropriate/  in  the  order  they  are  to  be  used. 

It  is  permissable  for  several  insertions  and  table  modifications  to  appear  con- 
secutively. 

4.4.3  *FND-1NSF_RT 


An  ★ 1 1\  S E R T or  * I N S F.  R T - n card  is  terminated  only  when  an  *END-INSERT  card  is 
encountered.  Any  * S T A R T / * I N S E R T or  ★FND-tIPPA.  TF  cards  encounterec  orior  to 
an  *END-INSERT  card  image  are  treated  as  data  to  be  inserted. 

A. 4. 4 * S TA  R T 


The  *START  card  equates  a set  of  updates  to  a program  beino  retrieved  from 
a Population  File.  The  format  for  the  *START  card  is  as  follows: 

★START/ZZZZZ 

ZZZZZ  represents  the  name  of  the  proaram  which  is  to  be  updated. 

If  the  named  proaram  is  selected  (see  th»  * P * or  * + ' card)/  then  the  update 
following,  the  * S T A R T card  is  applied.  Any  sequence  errors  detected  are 
flagged.  The  updates  must  appear  in  ascendino  order  based  on  the  line 
numbers  associated  with  the  proaram  being  updated.  The  * START  cards  and 
their  associated  updates  must  appear  in  the  order  in  which  the  proarams  are 
found  on  the  Population  File. 


The  *HEADER  and  *FILFS  cards  can  also  be  updated.  The  channed  card  images 
must  appear  immediately  following  the  *START  card  in  the  order  wn: 

★START/ SCI  01  *START/r"Q03 

★HEADER/C0BOL/NC101  *H E A DE  R / F OR  T R/ F 00? 

* F ILES1  / COPOL/NCIOI  *FILFS1/F0RTR,Fi*003 

* F ILES2/C0PPL/NC1 01 

★FILFS3/C0BOL/NC101 

Source  program  updates  Source  proaram  updates 

The  updates  for  a given  program  are  terminated  by  another  *STAkT  card/ 
an  *INSFPT  card  or  an  ★ E\P-(JPDATF  card.  The  method  for  updating  both  COPOL 
and  FORTRAN1  programs  is  in  the  following  sections: 

A. 4. 4.1  COBOL  Source  Program  Updatino 

1.  Replace  a card  image 

★START  (update)  POPULATION  P I L F 

001 000  text  of  update  IHHOOC 
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If  the  sequence  numbers  match/  the  card  imaoe  is  replaced. 
(Should  there  not  be  a card  numbered  001900  on  the  Population 
File*  the  card  would  be  inserted.) 

2.  Delete  a card  image. 

021900*  (rest  of  card  blank)  021900 

The  corresponding  card  is  deleted.  If  there  is  no  cor- 
responding card*  an  error  message  is  issued. 

3.  Delete  a series  of  card  imanes  . 

fi rst*last 
013900*014100 

The  card  images  from  013900  through  and  including  014100  are 
de  l et  ed  . 


Insert  a card  image 
021910  text  of  card 


021900 
02 2000 


The  card  image  is  inserted  between  G219C0  and  02200C. 

(If  the  card  number  matched  a card  number  already  contained 
in  the  program  then  it  would  replace  that  card  imaoe.) 

Any  blank  line  numbers  are  immediately  inserted  following 
the  action  taken  on  the  last  numbered  card. 

021900*023000 

(Blank)  text 

(Plank)  text 

The  two  tlank  cards  are  inserted  after  the  last  card  was  deleted  based 
upon  the  request  to  delete  the  card  images  021900  through  023000. 

Characters  other  than  blank  or  comma  (*)  can  be  used  in  position  7 of 
the  update  card: 

1.  Replacement  or  insertion  of  special  character  cards. 

1 - * has  no  effect  on  the  update.  The  will  appear  in  the 

COBOL  source  card  and  will  be  assumed  to  be  associtated  with 
cha r act e r- s t r i ng  continuation. 

***  has  no  effect  on  the  update.  The  **•  will  appear  in  the 
COBOL  source  and  will  be  treated  by  a COBOL  compiler  as  a comment 
card. 

■D*  - If  the  PPIVP74  processor  is  working  in  the  74  mode  (*fCVSt’ 
74)*  the  * D * has  no  effect  and  appears  as  a debuo  line  in  the 
updated  proqram.  If  PPI.VP74  is  working  in  the  68  mcde  (*CCV5P 
68)*  then  the  card  image  is  treated  as  an  optional  card  (see  A-Z) 
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'A*  - *Z*.  The  presence  of  these  characters  causes  the  card 
image  to  become  an  optional  card.  The  characters  will  appear 
in  Column  7 of  the  population  file  card  image*  but  the  card  must 
be  selected  via  an  *0P  T ION  command  if  it  is  to  be  passed  to  tb<’ 
source  output  file  (see  the  *0PT  card  under  the  discussion  of 
the  monitor  section).  If  the  character  is  selected  as  an  option* 
then  each  card  imaoe  containing  the  character  in  column  7 has 
column  7 blanked  before  the  card  image  is  written  to  the  source 
output  file.  If  the  character  in  Column  7 is  not  selected  then 
the  card  is  not  written  to  the  source  output  file. 


For  an  update  in  which  a permanently  updated  Population  File  is 
being  created*  column  7 is  not  a criterion  determining  whether 
the  card  image  is  written  to  the  updated  (new)  Population  File. 
(The  card  image  will  always  be  written  to  the  Population  File.) 

2.  Series  operation  (0019007002000) 

The  character  in  column  7 is  placed  in  column  7 of  each  of 
the  card  images  contained  in  the  identified  series. 

001 900 A0020D0  001900A 

001 91 0A 
002000A 

The  use  of  the  dash  is  meaningless  and  results  in  a 
program  that  would*  more  likely  than  not*  be  syntactically 
incorrect  . 

'*'  This  causes  a series  of  card  images  to  become  comment 
entries.  This  should  be  used  with  care  or  a 'portion'  of  a 
of  a statement  wilt  become  a comment  result  inn  in  a syntacti- 
cally incorrect  proqram.  This  is  used  durinn  validations 
to  eliminate  code  rejected  by  the  compilers-  As  such  the  code 
becomes  comments  and  is  preserved  for  use  in  preparing  the 
Validation  Summary  Report. 

'A*  - *Z '*  This  causes  a series  of  card  images  to  become 
optional  card  images  (or  debuo  lines  *D').  This  should  be  usea 
with  care  for  the  same  reasons  as  stated  above  under  the  '*'. 

See  the  previous  discussion  about  optional  cards  under  replace- 
ment and  insertion  of  special  character  cards. 

A. 4. A. 2 Source  Program  Updating  for  FORTRAN*  PL/I*  ALGOL*  and  Other  Lannuages 
Where  the  Sequence  Numbers  are  in  Columns  73-78. 

1.  Replace  a card  image. 

♦START  (update)  POPULATION  FILE 

=00190*00190  Source  text  001901.0 

(Text  of  replaced  card  imaoe  follows) 

If  the  sequence  numbers  match*  the  card  image  is  replaced. 
(Should  there  not  be  a card  numbered  00190  on  the  Population 
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File  for  that  source  program#  the  card  would  he  inserted.) 

2.  Delete  a card  image. 

=021 90#02190  021901 .0 

(Followed  by  another  =-card  or  an  *-card) 

The  corresponding  card  is  deleted.  If  there  is  no  c o r r e s oond  i ng 
card#  an  error  message  is  issued. 

3.  Delete  a series  of  card  images. 

f i rst # last 
=01 390#01 410 

(Followed  by  another  =-card  or  *-csrd) 

The  card  images  from  01390  through  and  including  are  deleted. 

4.  Insert  a card  image. 

=021900  021901.0 

02200*  .0 

(Card  images  to  be  inserted  follow  this  card) 

The  card  images  would  be  inserted  between  P2 190  end  02200. 

The  use  of  characters  other  than  blank  or  comma  (#)  in. position  7 of  the 
update  card: 

1.  Replacement  or  insertion  of  special  character  cards. 

'A*  - * Z * The  presence  of  these  characters  causes  the  card 
imaoe  to  become  an  optional  card.  The  characters  will  appear 
in  column  1 of  the  Population  File  card  image.  The  card  must 
he  selected  via  an  *0P  TI ON  command  if  it  is  to  be  cassed  to  the 
source  output  file  (see  the  *0PT  card  under  the  discussion  of 
the  Monitor  Section).  If  the  character  is  selected  as  an  cotion# 
then  each  card  image  containing  the  character  in  column  1 has 
column  1 blanked  before  the  card  image  is  written  to  the  source 
output  file.  If  the  character  in  Column  1 is  not  selected  then 
the  card  is  written  to  the  source  output  file  and  Column  1 
contains  a 'C  ' . 

For  an  update  in  which  a permanently  updated  Population  File  is 
being  created#  column  1 is  not  a criterion  determining  whether 
the  card  image  is  written  to  the  updated  (new)  Population  rile. 
(The  card  image  wll  always  be  written  to  the  Population  File.) 

2.  Series  operation  ( =001 907C0200) 

The  character  in  column  7 is  placed  in  column  1 of  each  of  the 
card  images  contained  in  the  identified  series. 
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=00190400200 


001901 .0 

001O11.Q 


*A*  - *7*  This  causes  a series  of  card  images  to  become 
optional  card  images.  See  the  previous  discussion  about 
optional  cards  under  replacement  and  insertion  of  special 
character  cards. 

A. 4. 5 *END-UPDATE 
— 

♦END-UPDATE 

The  *END-UPDATE  card  is  an  indicator  to  the  PPLVP74  program  that  the  Update 
Section  is  to  be  terminated.  It  siqnals  the  end  of  alt  updates/  table  modifi- 
cations/ and  insertions/  and  causes  all  files  to  be  closed  at  the  appropriate 
time. 
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3.  FPLVP74  Generation 

The  PPLVP74  processor  can  be  implemented  either  through  the  use  of  the 
bootstrap  method  or  through  s system  generation  technique.  The  bootstrap 
method  is  accomplished  through  the  use  of  the  source  program  described  in  sec- 
tion B.1  and  can  be  used  to  extract  the  PPLVP74  source  program  for  further 
compilation.  The  system  generation  technique  can  be  used  if  the  PPLVP74  rrocess 
has  been  previously  implemented.  (The  current  or  any  previous  version  of 
PPLVP74  can  be  used.) 

The  PPLVP74  processor  is  contained  within  the  population  file  and  can  be 
extracted  using  the  provided  ‘boot*  program/  the  1968  VP-Routine  or  PPLVP74 
itself  once  it  has  been  implemented.  The  length  of  the  internal  tables  used  h y 
PPLVP74  are  adjustable  at  compile  time  and  can  be  modified  to  accomodate  as  many 
or  as  few  entries  as  are  necessary.  For  example/  if  no  Initial  control  cards 
are  needed  then  only  one  (1)  occurrence  for  the  I table  would  be  requested.  If 
a larger  number  were  needed  then  the  number  specified  would  become  the  number 
of  occurrences  for  that  table. 

3.1  Bootstrap  Implementation 

The  bootstrap  program  will  extract  the  PPLVP74  processor  in  such  a way  t n a t 
the  values  specified  in  the  VALUE  clause  for  the  following  data  items  will  be 
used  for  each  table  whose  length  can  be  varied.  The  user  must  provide  i^ole- 
mentor  names  in  the  entries  named  below  where  an  implementor  name  is  requested; 
and  if  a default  value  is  to  be  chanoed/  the  appropriate  data  item  VALUE  clause 
must  be  changed. 

CTL-01  Implementor-name  used  in  the  SELECT  statement  for  the 
popu  l at i on  file. 

CTL-U2  Implementor-name  used  in  the  SELECT  statement  for  the 
output  file  from  PFLVP74. 

CTL-03  Implementor-name  used  in  the  SFLECT  statement  for  a 
seouentially  organized  work  file. 

CTL-04  (Seme  as  CTL-03). 

CTL-10  Number  of  entries  to  be  associated  with  the  AP  table  - 
5?  default. 

CTL-11  Number  of  entries  to  be  associated  with  the  AO  table  - 
5?  default. 

CTL-12  Number  of  entries  to  be  associated  with  the  A table  - 
58  default. 

CTL-13  Number  of  entries  to  be  associated  with  the  I table 
(Initial  control  cards)  - 10  default. 

CTL-14  Number  of  entries  to  be  associated  with  the  B table 
(Beginning  control  cards)  - 20  default. 

CTL-15  Number  of  entries  to  be  associated  with  the  F tatle 
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(Ending  control  cords)  - 20  default. 

CTL-16  Number  of  entries  to  be  associated  with  the  T table 
(Terminal  control  cards)  - 5 default. 

CTL-17  Number  of  entries  to  be  associated  with  the  X table 
90  minimum  required  for  the  1974  (CVS  - 150  default. 

CTL-18  Number  of  entries  to  be  associated  with  the  S table 
(Sort  control  cards)  - 5 default. 

CTL-19  Number  of  entries  associated  with  the  program  selection 
table  - default  260. 

CTL-36  Imp l ement o r -name  used  in  the  SFLECT  statement  for  a printer 
destined  file. 

CTL-37  Implementor-name  used  in  the  SFLFCT  statement  for  the  card 
reader. 

CTL-45  Implementor-name  associated  with  the  top  of  pace  mnemonic- 

name  to  be  used  with  a WRITE  statement  for  a printer  destined 

file. 

CTL-4R  OMITTED  or  STANDARD^  used  in  conjunction  with  the  L A 9 FI- 
RE C OR  D clause  associated  with  the  printer  destined  file  produced 
by  PPLVP74. 

CTL-49  Name  of  the  Source-Computer. 

CTL-5G  Name  of  the  Object-Computer. 


The  followino  is  a source  C0R0L  prop  ram  which  will  extract  the  PPLVF74 
processor  for  further  compilation  and  implementation  on  the  system  on  which 
the  CCVS  is  being  implemented.  (It  can  also  be  used  to  extract  the  1968 
VP-Routine  associated  with  the  196>'  CCVS.) 


IDENTIFICATION  DIVISION. 

PROGRAM-ID . 

VPR00T  . 

ENVIRONMENT  DIVISION. 

INPUT-OUTPUT  SECTION. 

FILE-CONTROL. 

SELECT  P0PFTLE  ASSIGN  TO 

(implementor  name  for  th®  input  tape) 

SELECT  PR  T ASSIGN  TO 

(implementor  name  for  the  printer) 

SELECT  VP-FILE  ASSIGN  TO 

(implementor  name  for  the  file  to  which  th<>  PPLVP74 
processor  source  code  is  to  b laced.) 
I-0-C0NTR0L. 

DATA  DIVISION. 
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FILE  SECTION. 

FD  POPFILE 

LAREL  RECORDS  OMITTED 
DATA  RECORD  POP-REC 
BLOCK  CONTAINS  1 RECORDS 
RECORD  CONTAINS  2400  CHARACTERS 

01  POP-REC. 

02  CARD1  PIC  X(SO>  OCCURS  30  TIMES. 
FD  VP-FILE 

LABEL  RECORDS  STANDARD 
DATA  RECORD  IS  VP-PEC. 

Cl  VP-REC. 

0?  VP-1-72. 

05  VP-1-6  PIC  x(6). 

05  VP-7-7  PIC  X. 

05  VP-8-11  PIC  X ( 4 ) . 

05  VP-12-72. 


07 

VP- 

12-1 R. 

09 

VP- 

12-16 

PIC  XXXXX 

09 

VP- 

17-19 

PIC  99. 

88 

X 01 

VALUE 

001  . 

88 

X 02 

VALUE 

002. 

88 

X 03 

VALUE 

003. 

88 

X04 

VALUE 

004. 

88 

X10 

VALUE 

010. 

88 

XII 

VALUE 

Oil  . 

88 

Xl  2 

VALUF 

012. 

88 

X 1 3 

VALUE 

013. 

88 

X 1 4 

VALUE 

014. 

88 

X 1 5 

VALUF 

015. 

88 

X 16 

VALUE 

016. 

88 

X 1 7 

VALUE 

017. 

88 

X 18 

VALUE 

018. 

88 

X 19 

VALUE 

019. 

88 

X 36 

VALUF 

036. 

88 

X 37 

VALUE 

037. 

88 

X 45 

VALUE 

045. 

88 

X 48 

VALUE 

048. 

88 

X 49 

VALUE 

049. 

38 

X 50 

VALUF 

050. 

07 

FILLER  PIC  X (54)  . 

02  VP-73-77  PIC  X ( 5 ) . 

C2  VP- 78-80  PIC  X ( 3)  . 

F D PR T 

LABEL  RECORDS  STANDARD 
DATA  RECORD  PRT-REC. 

01  PRT-REC. 

02  FILLER  PIC  x(130>. 
WORKING-STORAGE  SECTION. 

01  SUB  1 PIC  S9 ( 9 ) USAGE  COMP 
01  VP-REC-HOLD  PIC  X(°0). 

Cl  CONTROL-CARDS. 

03  CTL-01  PIC  X ( 28 ) VALUE 
03  CTL-02  PIC  X C 28 ) VALUE 
03  C Tl  -03  PIC  X ( 28 ) VALUE 


SYNC  RIGHT  V A L UF  55. 


"population  file  select.". 
"PPLVP74  output  select.  ". 
"workfile  select.  ". 
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"•  1 


y*. 


03 

CTL-04 

PIC 

X ( 28 ) 

VALUE 

"workfile  select. 

03 

CTL-10 

PIC 

X < 28 ) 

VALUE 

"58. 

03 

CTL-1 1 

PIC 

X ( 2 8 ) 

VALUE 

"58. 

03 

CTL-12 

PIC 

X (28) 

VALUE 

"58. 

03 

CTL-13 

PIC 

X ( 28 ) 

VALUE 

"10. 

03 

CTL-14 

PIC 

X ( 28 ) 

VALUE 

"30. 

03 

CTL-1 5 

PIC 

X ( 28 ) 

VALUE 

"50. 

03 

CTL-16 

PIC 

X ( 2 8 ) 

VALUE 

"05. 

03 

C 1L-1 7 

PIC 

X ( 28 ) 

VALUF 

"150. 

03 

CTL-18 

PIC 

X (28  ) 

VALUE 

"05. 

03 

CTL-19 

PIC 

X ( 28 ) 

VALUE 

"260. 

03 

C TL-36 

PIC 

X ( 2 8 ) 

VA  LUF 

"printer  select. 

03 

CTL-37 

PIC 

X (28  ) 

VALUE 

"card-reader  select. 

03 

C TL -45 

PIC 

X ( 2 8 ) 

VALUF 

"advancincr  top  of  paqe 

03 

CTL-48 

PIC 

X(  28) 

VALUE 

"STANDARD  or  OMITTED 

03 

C TL-49 

PIC 

X ( 28 ) 

VALUE 

"source  computer  name. 

03 

CTL-50 

PI  C 

X (28) 

VALUE 

"object  computer  name. 

PROCEDURE  DIVISION. 

DRIVER -SECTION  SECTION. 

DRI VER1 . 

OPEN  INPUT  POPFILE. 

OP  F N OUTPUT  PR  T VP-FILF. 

MO V F ''START"  TO  PRI-REC. 

WRITE  TRT-KEC. 

***  DOWHILF  VP-1-7?  NOT  EQUAL  TO  . . 
PE  P F OR  M READ-POP  UNTIL  VP-1-72  EQUAL  TO 
"*HEADER/C0R0L*ASVP9 
NOTE  THAT  " * H E A D E R , C OB OL , A S VPO 
EXECUTIVE  ROUTINF. 

ENDDO 

WRITE  PRT-REC  FROM  VP-RFC. 

***  DOUNTIL  VP-1-6  EQUAL  TO 
PE  R F OPM  SELECT -VP. 

WRITE  PRT-PFC  F POM  VP-REC. 

PERFORM  SELECT -VP  UNTIL 

VP-1-6  EQUAL  TO  " * E N D - 0 " OP 
VP-1-6  EQUAL  TO  "*HE  ADE". 

ENDDC 

WRITE  PRT-REC  FROM  VP-REC. 

MOVE  "FIN  " TO  PRT-REC. 

WRITE  PRT-RF.C. 

CLOSE  PPT  VP -F I L R POPFILE. 

STOP  RUN. 

SELECT -VP  SECTION. 

SL  E -01  . 

PERFORM  READ-PCP. 

IF  VP-1-6  EQUAL  TO  " * H E A D E " OR 
VP-1-6  EQUAL  TO  " * F I L E S " OR 
VP-1-6  EQUAL  TO  "*END-0" 

GO  TO  SELFCT-EXIT 

ELSE 

PFRFORN  PROCESS-VP 


WOULD  SELFCT  THE  SMALLER 


P F R F 0 R M WRITE-CARD 


ELSE 


"A" 

M ^ •• 

m r •• 


c 

M •• 

M j »* 
M I M 


OR 

OR 

OR 

OR 

OR 


IF  VP-7-7  EGUAL  TO 
VP- 7- 7 EGUAL  TO 
VP-7-7  EQUAL  Tn 
VP-7-7  EQUAL  TO 
VP-7-7  EGUAL  TO 
VP-7-7  FGUAL  TO 
MOVF  SPACE  TO  VP-7-7 
PERFORM  WRITE-CARD. 

♦The  "J"  above  causes  the  source  output  file  of 
♦to  contain  80  character  records.  The  absence 
♦would  result  in  72  character  records  for  that 

* E N D I F 

* CNDIF 

* ENDIF 

SE  LECT-EX I T . 

READ-POP  SECTION. 

RE  ADI  . 

IF  SUB  1 GREATER  30 

MOVE  1 TO  SUR1 
PERFORM  RE ADP1  . 

MOVE  CARD1  ( SUB  1 ) TO  VP-REC 

IF  VP-1 —A  EQUAL  TO  "♦HEADE" 

WRITE  PRT-REC  FROM  VP-REC. 

ADD  1 TO  SUB1  . 

READP1  SECTION. 

RDD. 

READ  POPFILE  AT  END  MOVE  "*END-0”  TO  VP-1-6. 

PROCESS-VT  SECTION. 

PROC1 . 


PPLVP74 

of  that  statement 
file. 


IF 

VP- 

12-16 

EQUAL  TO 

M X X X X X " AND 

VP- 

17-19 

NUMERIC 

NEXT  SENTENCE  FLSE  GO  TO  PROCFND 

m 

IF 

X01 

MOVE 

CTL-01 

TO 

VP-12-7? 

GO 

TO 

PROCEND 

I F 

X 02 

MO  VF 

C TL -02 

TO 

VP-12-7? 

r o 

TO 

PROCEND 

I F 

X03 

MOVE 

CTL-03 

TO 

VP-12-7? 

GO 

TO 

PROCEND 

I F 

X04 

MOVE 

CTL-C4 

TO 

VP-12-7? 

GO 

TO 

PROCEND 

I F 

X10 

MOVE 

CTL-10 

TO 

VP-12-7? 

GO 

TO 

PROCEND 

IF 

XII 

MOVE 

CTL-11 

TO 

VP-12-72 

GO 

TO 

PROCEND 

IF 

X 1 2 

MOVE 

CTL-12 

TO 

VP-12-72 

ro 

TO 

PROCFND 

IF 

X 1 3 

MOVE 

CTL-1 7 

TO 

VP-12-7? 

GO 

TO 

PROCEND 

IF 

X 1 4 

MO  VF 

CTL-14 

TO 

VP-1  2-72 

GO 

TO 

PROCFND 

IF 

X 1 5 

MOVE 

CTL-15 

10 

VP-12-72 

GO 

TO 

PROCEND 

I F 

X 1 6 

MOVE 

CTL-16 

TO 

VP-12-72 

C-0 

TO 

PROCFND 

IF 

X 1 7 

MOVE 

CTL-1 7 

TO 

VP-12-72 

GO 

TO 

PROCEND 

I F 

X 1 8 

MOVE 

C TL~ 1 8 

TO 

VP-12-72 

GO 

TO 

PROCFND 

IF 

X 1 9 

MOVE 

CTL-19 

TO 

VP-12-7? 

GC 

TO 

PROCEND 

IF 

X 36 

MO  VF 

CTL-36 

TO 

VP-12-72 

GO 

TO 

PROCEND 

I F 

X 77 

M0  VF 

CTL-37 

TO 

VP-12-72 

GO 

TO 

PROCEND 

I F 

X 4 5 

MOVE 

C T L -45 

TO 

VP-12-72 

GO 

TO 

PROCEND 

IF 

X 43 

WOVE 

C TL -48 

TO 

VP-12-7? 

GO 

TO 

PROCEND 

I F 

X 4 9 

MOVE 

CTL-49 

TO 

VP- 1 ?- 72 

GO 

TO 

PROCEND 

I F 

X 50 

MOVE 

C TL - 50 

TO 

VP-12-72 

GO 

TO 

PROCEND 

PROCEND.  FXIT. 
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*R I T E-CARD  SECTION. 

SPRITE. 

MOVE  SPACE  TO  VP-73-77  VP-7S-R0. 

WRITE  VP-REC.  g 


I 


I 
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B.2  PPLVP74  System  Generation 

The  PPL VP74  processor  can  be  selected  and  generated  by  using  the  1966 
VP-Routine  or  the  1974  VP-Routine.  The  information  to  be  provided  parallels 
the  information  required  by  the  *boot‘  program  described  above.  There  are 
additional  options  which  can  be  used  to  configure  the  PPLVP74  processor  to  a 
particular  environment.  The  options  desianated  as  "Default"  should  be  used 
to  produce  a PPLVP74  processor  identical  to  the  one  used  by  the  Federal 
COBOL  Compiler  Testing  Service. 

OPTIONS 

*0PT1  A (Default)  Unsegmented  proarsm. 

B Segmented  COBOL  program. 

*0PT2  E (Default)  Include  all  AP  tatles  and 

approoriate  references. 

(BLANK)  AP  tables  and  associated  references  will 
not  be  included. 

* 0 P T 3 C (Default)  Include  all  « D tables  and 

appropriate  references. 

(BLANK)  AD  tables  and  associated  references  will 
not  be  included. 

* 0 P T 4 I (Default)  Include  1968  CCVS  X x x x X N N numbers 

for  implementor -n a mes. 

H Include  1974  CCVS  XXXXXnnn  numbers  for 

implementor-names. 

* OP T5  L INSPECT 

K EXAMINE 

*0pT7  J (Default)  Source  prooram  output  file  will  contain 

3U  character  records. 

(BLANK)  Source  program  output  file  will  contain  72  character 

records. 

X-Card  Parameters  - y numbers  are  oiven  for  both  the  1968  and  1^74  CCVS  - 

*0PT4  should  be  set  to  I for  196b  (CCVS6S)  X-number 
or  set  to  H for  1^74  (CCVS74)  X-numbers. 

Note  that  X-10  throuoh  X-19  have  to  be  provided  regardless  of  whether  the 
1968  or  1974  x-cards  are  used. 

1968  1974  Contents 

X-01  X-01  Implementor-name  for  SELECT  statement  for  the  Population  File. 

X-02  X-02  Implementor-name  for  SELECT  statement  for  the  Output  from 

PPLVP74 . 

X-03  X-03  Implementor-name  for  SELECT  statement  for  the  Secuential  bork- 
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file. 

I mp  l ernen  t or-n  ame  for  SELFCT  statement  for  the  Seouential  work 

file. 


Number 

of 

ent  r i es 

t 0 

be 

associated 

with 

t he 

AP 

table. 

( SP) 

Number 

of 

entries 

to 

be 

associated 

with 

the 

AD 

table. 

(58) 

Number 

of 

ent  r i es 

to 

be 

associated 

with 

the 

A 

tat  l e . 

( 5P ) 

Number 

of 

ent  r i es 

t o 

be 

associated 

with 

the 

t 

i 

table. 

(10) 

Number 

of 

entries 

t o 

be 

associated 

with 

the 

ES 

table. 

(20) 

Number 

of 

ent  r i es 

t 0 

be 

associated 

with 

the 

F 

table  . 

(20) 

Number 

of 

entries 

to 

be 

associated 

with 

t he 

T 

table. 

(05) 

Number 

of 

ent  r i es 

to 

be 

associated 

with 

the 

X 

table. 

(150) 

Nu mbe  r 

of 

entries 

t 0 

be 

associated 

with 

the 

s 

tab  l e . 

(05) 

Number 

0 f 

ent  r i es 

to 

be 

associated 

with 

the 

Program  Selection 

Table.  (260) 


Implementor-name  for  SELECT  statement  for  the  Car-*  Reader. 
Implementor-name  for  mnemonic  top  of  paqe. 

STANDARD  or  OMITTED  label  records  clause  for  the  printer. 
Source-Computer  name. 

Object-Computer  name. 
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PPL VP  74  Messages  and  Error  Diagnostics 


The  PPLVP74  messages  are  uniquely  identified  with  a reference  identifier. 
The  text  of  each  message  including  any  other  pertinent  information  is  provided 
in  this  appendix.  The  reference  identifier  consists  of  a letter  followed  by 
four  digits  (M9010): 


Letter 


M - Represent  s 
1)  - Represents 
X - R epr esent  s 


message  from  the  Monitor  Section; 
messaoe  from  the  Update  Section; 
messace  which  could  be  issued  from 


either  the  Update  or  Monitor  Section. 

First  Digit 

0 - Represents  a diagnostic  based  on  an  input  provided 
by  a user.  (Input  to  the  PPL VP74  processor.)  A 
requested  action  was  rejected/not  done  due  to  an 
incorrect  input  parameter. 

5 - Information  messaaes;  providino  information  in  the 
form  of  a printed  message. 

9 - Represents  an  internal  PPLVP74  error.  This  could 
be  caused  by  a modification  made  when  the  PPLVP74 
source  program  was  implemented  or  could  be  a legiti- 
mate bug.  When  messaqes  of  this  sort  appear  / the  user 
should  contact  the  FCCTS  for  further  guidance: 

Federal  C^BOL  Compiler  Testing  Service 
Department  of  the  Navy 
Washington/  D.  C.  20376 
(202)  697-1247 

Last  Three  Dio  its 

000-999  - Represents  a sequence  number  for  each  type  of 

messace. 
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C.1  Monitor  Section  "essaaes 

*0020  NAME  NOT  ENTERED,  SELECTION  TABLE  FXCEEDFD 

A program  was  requester!  (♦  or  P card;  *FNVIRONNFNT  card  ref “rencino 
a + or  P card)  hut  the  number  of  entries  in  the  recuest  table  have 
all  been  used.  The  program  will  not  be  selected. 

*10030  ***  INVALID  PPL  VP  7 A CONTROL  STATEvrNT  ***** 

The  * card  shown  to  the  rioht  of  the  diagnostic  is  not  known  to  the 
PPLVP74  processor.  (See  5.1.6  VP-Routine  Control  Statements  for  a 
list  of  acceptable  control  cards.)  The  card  is  not  processed. 

M rJ  0 3 1 CKVPJCL  ***  DATE  NOT  USED,  SYSTEM  DATE/TIME  USED. 

Version  2.K  and  later  of  the  PPLVP74  processor  obtain  the  date  and 
time  of  the  run  from  the  system  through  the  ACCFPT...DATF, 

ACCEPT T I pi  E . 

*10040  *****  INVALID  (+LIST)  OPTION  - DELFT^D  ***** 

*10050  *****  INVALID  (*INI  TIALIZF)  OPTION  - DELETED  **** 

The  option  presented  to  the  right  of  the  diagnostic  message  is 
not  known  to  the  PPLVP74  processor.  The  option  wll  be  discarded. 

*’’0060  *****  INVALID  <*0PTI0N)  NUMBER  - DELFTED  ***** 

The  *0PTnn  control  card  presented  to  the  right  of  the  message  has 
other  than  1 - ?7  contained  in  nn.  The  *0PTnn  card  will  not  be 
further  processed. 

*10070  *****  INVALID  OPEN  OPERAND  ***** 

The  name  to  the  rioht  of  the  message  was  the  object  of  an  *0PFN 
control  statement  and  is  invalid. 

*’0000  ***  DUPLICATE  (*SUBSFT)  ENCOUNTERED  - RESULTS  NOT  PREDICTABLE 

After  processing  a *SUBSFT  card,  another  was  encountered.  It  will 
be  processed  and  could  lead  to  duplicate  program  reauests  beinn 
processed . 

'<10090  *****  INVALID  (^SUBSET)  CAPD  DELETED  ***** 

The  *SUPSET  card  presented  to  the  riqht  of  the  messaoe  is  not  valid 
The  only  allowable  *SUBSET  cards  are: 

*SUBSET-A  - FIPS  PUB  71-1  Low  Level  COBOL 

* S Ufi  SE  T- P - FIPS  PUP  21-1  Low-Intermediate  COBOL 

* SUB  SF  T-C  - FIPS  PUB  ?1-1  H i o h- 1 n t e r m e d i a t e COBOL 
*SUBSFT-D  - FIPS  PUB  21-1  Hioh  Level  COBOL 
*SUBSET-ALL  - ALL  rrocirams  on  the  Population  File 

■*10100  MONDR  V R NO  ( *0  A T E Y YMMDD  ) CARD  FOUND  - PROCF.SSINF  TERMNATED 


05 


r 


’10110 


*1012  0 


The  required  *DA  TE  card  had  not  been  found  when  the  *E  ND-MON  I TOR 
sentinel  was  processed.  The  PPLVP74  processor  terminates  itself. 
Provide  an  *DATE  card  and  retry. 

MPROCIP  INVALID  PPLVP74  MONITOR  CONTROL  CA°0  ***** 

The  command  shown  to  the  right  of  the  diannostic  messaee  is  not 
a proper  Monitor  Control  card  (i.e./  + card/  P card/  - card/ 

M card/  alphabet  card/  * card).  The  card  is  rejected  and  not 
processed. 

PROCENV  ENVIRONMENTAL  INFORMATION  NOT  FOUND  ***** 

The  name  of  a requested  environmental  file/  presented  to  the  rinht 
of  the  diagnostic/  was  not  found  in  the  Population  File.  The 
request  therefore  is  not  processed. 


15010  N0NDRVR  **  NO  ( * EN D-M0N I T OR ) FOUND  END-OF-FILF  - PROCESSING 

CONTINUES  WITH/NO  UPDATES 


M5020 


15021 


19010 


190  20 


The  *F VD-MON I T OR  which  indicates  the  end  of  the  Monitor  Section  was 
not  found.  Instead  an  end-of-file  was  encountered.  If  an  Update 
Section  was  present/  it  wasn't  found  and  therefore  not  processed. 

COPIED  ENVIRONMENT  PARAMETER 

The  PPLVP74  input  parameter  printed  to  the  right  of  COPIED  text  was 
right  of  it  was  copied  from  an  environmental  entry  on  the 
Population  File.  The  ENVIRONMENT  option  of  the  *LIST  command 
must  preceed  the  *ENVIR0NMENT  card  in  order  for  the  contents 
of  the  environmental  entry  to  be  listed  as  each  command  is 
proces  sed . 

COPIED  XXXXXXXX  NNIN  RECORDS 

The  environmental  »nt  ry  'XXXXXXXXXXX*  has  been  extracted  from 
the  Population  File.  *NNN  • records  were  contained  in  that 
entry.  (If  the  ENVIRONMENT  option  of  the  *L  1 S T card  was  not 
present/  then  the  entry  would  not  have  been  listed  as  each 
statement  was  processed. 

INVALID  PPLVP74  MONITOR  CONTROL  CARD 

PPLVP74  internal  error.  A +(P)  card  was  present  in  an  *INSERT-C 
request  (which  is  not  permitted)  and  an  attempt  to  process  it 
triggered  this  message.  The  +(P)  card  should  be  placed  in  the 
Monitor  Section  in  order  to  be  accepted. 

0PCTFIL  - OPEN  TO  CTL  FILE  NOT  PREVIOUSLY  CL0SFD 

An  internal  OPrfv  was  issued  to  the  control  card  file  which  was 
already  in  an  ooen  status. 


. . ....  „ 


idtim II  if  I 
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C.2  Update  Section  Messages 

UQC10  I NSC  TL  ILLFGAL  (*INSERT-C)  COMMAND 

A PPLVP74  Monitor  Command  was  detected  in  an  *INSFRT-C  packPt 
in  the  Update  Section  which  is  not  among  the  following: 

♦OPTION 
♦PROCI D 
♦LIST 
♦BCD-P 
♦PCD-C 

Alphabet  cards  (Except  for  'I') 

The  command  is  not  processed. 

IJ0G2C  NO  ( *H  E A DER  ) DATA  BYPASSED 

within  an  *INSCRT-P  (insert  program)  a data  card  was  encountered 
which  was  not  between  a set  of  ♦HFADER/wEND-OF  cards.  This  can  be 
caused  by  a missing  *H  F A D F R card/  source  cards  rreceedina  the 
♦HEADER  card#  etc.  The  images  which  have  been  detecteo  as  being  out 
of  place  are  bypassed  in  search  of  a ‘HEADER  card  or  an  ♦FND-IMSERT 
card. 

UUC3C  INVALID  (♦INSERT)  TYPF;  REGULAR  ASSUWFD 

The  -n  suffixed  to  the  ‘INSERT  card  is  not  recognized  and  the  insert 
packet  is  processed  as  though  there  had  been  no  suffix.  -C/  -P/  -D 
represent  Command/  Programs/  and  Data  respectively. 

U0040  NO  (♦END-INSFRT),  FOUND  FND-OF-FILE 

The  end-of-file  was  encountered  in  the  Control  Card  File  while  the 
PPLVP74  was  expecting  an  ★END-INSFRT  to  terminate  the  previous  insert 
packet.  The  insertion  is  terminated  as  though  the  ‘F^D-INSERT 
had  been  present.  This  also  terminates  the  Update  Section  as  though 
an  *END-UPDATE  card  had  been  processed. 

UnCMI  NO  (*ENO-INSFRT)  - PROCESSING  CONTINUES  WITH  ♦♦♦♦* 

An  insert  packet  was  terminated  but  not  bv  the  presence  of  an 
♦END-INSERT  statement.  Processing  will  continue  with  the  Update 
Command  listed  to  the  rioht  of  the  diaonostic  messaqe. 

Ut'050  INVALID  UPDATF  HFADER  (‘START/  ‘INSERT/  ‘END  - UPDATE  ) 

One  of  the  three  Update  Commands  was  expcted  but  not  found.  The 
insert  file  will  be  searched  until  one  of  the  three  are  located 
or  until  the  end-of-file  is  located.  The  bypassed  data  cards 
are  not  processed. 

Un060  UPDTRTN  UPDATE  ABORTED  IN  GOOD  TASTE/  FORTRAN  NOT  SUPPORTED 

Updates  were  indicated  for  a program  other  than  COBOL.  The 


Kwrc^-ry.-  . ■ - 


CCVS74  VFRSION  3 * RELFASF  0 77/10/13 


UU070 


Update  Section  is  bypassed  since  only  COBOL  programs  can  be  updated 
as  of  Version  1-16  PPLVP74 . 

VRFYUPDT  ILLEGAL  *P EG  I N-UPD A TE 


U0071 


The  option  supplied  on  the  *BE 6IN-UPD AT F card  was  not  recognized. 
A temporary  update  is  assumed. 

VRFYUPDT  (*BFGIN-UPDATE)  NOT  FOUND  - UPDATE  CANCELLED 


The  *PE GI N -UPD A TE  header  which  must  follow  the  *END-mq»  ITOR  card 
to  initiate  the  Update  Section  was  not  found.  The  update  is 
cancelled  and  any  updates  present  are  ignored  ad  bypassed. 

U0080  XCARD  UNDEFINED  XXXXYNNN  CARD#  NOTHING  DONF  ***** 

The  XXXXYNNNX  card  shown  to  the  riqht  of  the  diagnostic  had  not  been 
previously  defined  through  an  X-card  in  the  Monitor  Section  or  in 
*INSERT-C  packet  reauest  in  the  Update  Section.  The  imaoe  will  be 
unchanged  as  it  is  written  to  the  output  file. 


U5010  UPDATES  BYPASSED  (PROGRAM  WAS  NOT  SELECTED)  ***** 

Updates  were  encountered  for  the  program  named  to  the  right  of  the 
message#  but  because  the  program  had  not  been  selected#  the  updates 
ere  bypassed  and  the  next  Update  Section  header  located.  This  messaoe 
is  for  information  only. 


U'jOZU 


6ENJCL  DATA  GENERATED  NNNNNNN  RECORDS 


The  number  of  records  indicated  were  generated  for  the  prcbram  heinr 
processed.  This  is  triggered  by  the  'DATA*****  indicator  bein^  pres- 
ent as  one  of  the  Ending  Control  cards.  (E-card) 


U 5030 


U5031 


SKPUPDT5 


PROGRAM  DELFTED 


During  a permanent  update  (creation  of  a new  Population  File)#  the 

program  named  to  the  right  of  the  messages  was  not  selected 

(+  or  p card)  and  is  logically  deleted  from  the  new  Population  File 

(+  or  P card)  and  is  logically  deleted 
SKUPDATFS  * UP  DATES  BYPASSED  XXXXX 


The  updates  for  a program  not  selected  during  a permanent  update 
(creation  of  a new  Population  File)  are  bypassed.  The  next  set  of 
up d at es / i ns e r t i on  is  located. 


U 504U 


UPDTRTN  SEQUENCE  ERROR 


U5050 


An  update  card  for  a program  has  a sequence  number  which  is  less 
than  the  present  update  card.  The  aliened  error  card  will  be 
inserted  immediately  following  the  rrior  update  card.  The  cards 
should  be  placed  in  the  proper  order  and  the  ucdat  p rerun. 

PROGRAM  NOT  FOUND 
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The  program  named  to  the  left  of  the  diagnostic  was  selected  (♦  or  P 
card)  but  not  found  in  the  Population  File.  A duplicate  reouest  for 
the  same  program  will  cause  (1)  the  program  to  be  selected  and  <2) 
the  above  messaoe  indicating  that  the  program  was  not  found.  If  the 
Population  File  (SELFCT  OPTIONAL...)  is  not  present  then  none  of  the 
programs  will  be  found. 

U 5060  UPDTP01  POPULATION  FILE  NOT  PRESENT  * FILE  CREATION  ASSUMED 

The  PPLVP74  processor  attempted  to  open  the  Population  file  to  obtain 
the  tape  creation  date  and  the  owner  information  and  the  file  was  not 
present.  It  assumes  that  all  programs  to  be  manipulated  wll  be  input 
from  the  control  card  file. 

U9C1Q  * CLOSE  ATTEMPTED  ON  CLOSED  FILE  ( C ON T P OL-C A R D -F  I L F ) 

A second  internal  request  to  close  the  Control  card  file  has  been 
intercepted  and  refused. 

0*5020  * CLOSE  ATTFMPTFD  ON  CLOSED  FILE  (POP-FILE) 

A second  internal  request  to  close  the  Population  File  has  been 
intercepted  and  refused. 

0*5030  * CLOSE  ATTFWPTFD  On  CLOSED  F I L F ( PR  I * T -E  1 1.  E ) 

A second  internal  request  to  close  the  frint  file  has  teen  inter- 
cepted and  refused.  This  messaae  is  issued  via  t hr  DISPLAY  statement 
since  the  Printer  file  is  not  in  onen  status. 

U9040  * CLOSE  ATTF  mPTED  ON  CLOSED  FILE  (IIP-PCP) 

A second  internal  reouest  to  close  the  outnut  file  containino  the 
selected  programs  and  JCL  has  been  intercepted  and  refused. 

U9050  * CLOSE  ATTEMPTED  ON  CLOSED  FILF  CUP-POP) 

A second  internal  request  to  close  the  updated  Population  File  was 
intercepted  and  refused. 

U9060  * CLOSE  ATTEMPTED  ON  CLOSED  FILE  (VP-WORK-1) 

An  attempt  to  close  VP-W0RF1  which  was  not  in  an  OPEN  status  was 
refused . 

SJ907U  GENJCL  INVALID  INTERNAL  CTL  NUNRFR  - SYSTFM  ERROR 

U 9 Cl 7 1 GENJCL  INVALID  INTERNAL  CTL  NUMPER  - SYSTEV  ERROR 

Internally*  a invalid  number  has  been  passed  to  the  JCL  generator 
subroutine. 

U90S0  OFPOPFIL  - OPEN  TO  POP-FILE  MOT  PRFV10USLY  CLOSED 

An  internal  request  to  open  the  Population  File*  when  it  was  already 
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in  an  open  state/  was  intercepted  and  refused. 

U909U  OPPRTFIL  - OPEN  TO  PRINT-FILE  NOT  PREVIOUSLY  CLOSED 

An  internal  request  to  open  the  Print  File/  when  it  was  already  in 
an  open  state/  was  intercepted  and  refused. 

U9100  OPSORFIL  - OPEN  TO  SOURCE  FTLE  NOT  PREVIOUSLY  CLOSED 

An  internal  request  to  open  the  Source  File/  w^en  it  was  already  in  an 
open  state/  was  intercepted  and  refused. 

U911G  OPMPPFIL  - OPEN  TO  UP-POP  FTLE  NOT  PREVIOUSLY  CLOSEC 

An  internal  recucst  to  open  the  updated  Population  File/  when  it 
was  already  in  an  open  state/  was  intercepted  and  refused. 

U9120  OPWRKFIL  - OPEN  TO  VPW0RP1  NOT  PPFVIOUSIY  CLOSED 

An  internal  request  to  open  VP-WORLl  file/  when  it  was  already  in 
a open  state/  was  intercepted  and  refused. 

U°1 22  WTWK01  - ATTEMPTED  TO  WRITE  CLOSED  WORr  FILF 

U913U  WTSORJCL  ATTEMPTED  TO  wRITE  CLOSED  SOURCE  FILF 

During  a permanent  update  (in  which  the  Source  File  is  not  normally 

open)  an  attempt  to  write  ne'erated  JCL  to  the  Source  file  was 

attempted. 

U9132  WTSORSOR  ATTEMPT  TO  WRITE  CLOSED  S^U^CE  FILF 

An  internal  attempt  was  mad®  to  issue  3n  output  command  to  the  Source 
File  which  was  closed  at  the  time. 

U9140  WTUPPFIL  ATTEMPT  To  WRITE  CLOSED  UP-POP  FRF 

An  internal  attempt  was  made  to  issue  an  output  command  to  the  undated 
Population  File  which  was  closed  at  the  time. 

U9150  XCAPD  PPLVP74  SYSTEM  E PROP 

An  internal  problem  has  arisen  within  the  module  which  handles  the 
X card  replacement  in  a source  program.  This  is  probably  caused 
by  processinn  a source  program  containino  an  XXX  or  777  statement 
which  exceeds  the  maximum  allowable. 


110 


1 


CCVS74  VERSION  3 * RELEASE  0 77/10/13 


C.3  Other  Messages 

X 001 Q ***  OPERAND  GREATER  18  CHARACTERS*  PROCESSING  TERMINATED 

The  subroutine  which  processes  input  patameters  has  encountered  an 
operand  greater  than  IP  diqits.  This  is  an  error  since  there  are  no 
operands  acceptable  to  the  PPL VP  74  processor  which  are  that  long. 

The  card  will  not  be  further  processed.  Any  options  accepted  up  to 
but  not  including  the  erroneous  operand  will  be  accepted.  Anything 
beyond  that  operand  will  not  be  processed. 

XOQZCj  ***  MORE  THAN  10  OPERANDS  ENCOUNTERED DEIFTED 

An  eleventh  field  has  been  detected  in  a P P L V P 7 A parameter  card 
(*  card).  The  eleventn  field  and  anything  beyond  that  field  are 
not  processed. 

X 0030  LDALPHCD  INVALID  ID  PLACEMENT  (01-75) 

The  ID  placement  (columns  5-6)  in  the  previously  listed  PPLVP74 
alphabet  card  is  in  error.  It  is  shown  to  the  right  of  the 
diagnostic  message.  The  range  is  from  01  to  75.  The  ID  placement 
will  not  take  place.  The  card  should  be  corrected  and  processed 
again. 

X 0040  LDALPHCD  INVALID  ALPHABET  CARD  NUMBER  XX 

X 004 1 LDALPHCD  INVALID  (A)  CARD  NUMB  E R 

X 004  2 LDALPHCD  INVALID  ALPHABET  CARD  NUMBER  XX 

The  alphabet  card  number  (column  ?-4)  is  not  within  the  rame  for  that 
card.  This  number  is  set  at  PPLVP  generation  time.  The  invalid 
number  is  shown  to  the  right  of  the  diagnostic  message.  If  the  two 
positions  are  blank  or  contain  other  than  numeric  data  then  they 
will  be  rejected.  If  a number  that  is  larger  is  reauired*  then  the 
PPLVP74  processor  should  be  regenerated  specifying  a larger  number 
for  that  alphabet  card. 

X 0050  LDALPCH  INVALID  (A)  CARD  TYPF 

The  'A*  card  type  identifier  (column  ?)  is  not  recognized.  -*  P*  S* 

D are  the  four  valid  characters  acceptable  in  Column  ?.  (An  exception 
would  be  an  integer  if  the  number  of  *A * cards  specified  at  PPLVP74 
generation  time  was  greater  than  99.) 

X 501 0 RDCTLE1L  EOF  ENCOUNTERED  !)N  CTL-FILE 

An  end  of  file  condition  was  encountered  while  attempting  to  access 
the  next  record  within  the  Control  Card  File. 

X 901 u RDCTLFIL  ATTEMPTED  TO  READ  CL0SFD  CTL-ETLE 

Internally  an  attempt  was  issued  to  read  the  Control  Card  file  but  it 
is  not  in  an  open  status. 


Ill 
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X9020  RDPOPFIL  ATTEMPT  TO  READ  CLOSED  POP-FILF 

Internally  an  attempt  was  made  to  read  the  Population  File  which  was 
not  in  an  open  status. 

X903U  WTUDNOTE  ATTEMPT  TO  WRITE  CLOSE  PRINT-FILE 

An  internal  request  to  write  the  Printer  File  is  denied  because  the 
file  is  not  opened. 
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APPENDIX  D:  SUMMARY  OF  CCVS  PROGRAMS 


Appendix  D briefly  describes  the  features  tested  in  each  audit  proora* 
of  the  1974  COBOL  Compiler  Validation  System  version  3.0.  The  X-numbers  us e n 
by  each  propram  are  listed.  The  X-numbers  in  the  basic  set  are  used  by  each 
audit  program  except  for  a few  Library  and  Inter-prooram  Communication  programs. 
The  X-numbers  in  the  basic  set  are  55/  8 ?/  83/  and  34. 

D.1  COMMUNICATION  MODULE 


C *431 


X-Numbers:  Basic  set  plus  30/  31/  3?/  33/  35. 

Features  Tested:  This  program  is  a FIPS  flagqinq  test  and  contains 

Communication  Module  elements  from  both  ANSI  levels 
1 and  2.  Both  ANSI  levels  belong  in  Federal  Standard 
C030L  Hi  oh - 1 n t e r m e d i a t e and  High  levels.  The  program 
does  not  required  a Communication  environment  to  execute. 
Should  execution  of  the  Communication  statements  be  de- 
sired/ the  WORKING-STORAGE  item,  COMP-FLAG  should  be 
modified  to  a non-zero  VALUE  before  compilation  of  CM 431. 
The  following  statements  should  be  flagged  whenever 
monitoring  at  the  Low  or  Low-intermediate  levels: 

COMMUNICATION  SECTION  (and  all  subordinate  entries) 

ACCEPT  MESSAGE  COUNT 

ENABLE  cd-name 

D1SARLF  cd-name 

k E C E I VE  cd-name 

SFND  cd-name 
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D . 2 DERUG  MODULE 


DB101 


X -Nu inkers  : 


Features  Tested: 


Basic  set  only. 

DB101  tests  th“  basic  operation  of  the  Debug  Module 
when  both  the  compile  and  object  time  debugging  switches 
are  turned  on.  The  program  contains  both  debuo  lines 
and  simple  debugging  procedures.  The  Hebunainn  pro- 
cedures are  specified  for  procedure-names  and  procedure- 
name  series.  The  following  conditions  are  evaluated 
for  the  'DEPUG-ITEM'  register: 


(1)  Start  of  program 
(?)  Reference  by  'ALTER* 

(3)  Reference  by  *G0  TO* 

(4)  Reference  by  'PERFORM* 

(5)  Sequential  passage  of  control  (fall  through) 

Before  beginning  execution  of  the  object  proqrarr/  tne  job 
control  lanouaoe  commands  necessary  to  activate  (turn  cn) 
the  object  time  debugoing  switch  should  be  submitted. 


DE102 


X -Nu  mbe  r s : 


Basic  set  only. 


Features  Tested 


DB102  tests  the  basic  operation  of  the  ^ebuq  Mooule 
facilities  when  the  compile  time  debugoing  switch  is  on 
and  the  object  time  switch  is  off.  All  debug  lines  and 
debugging  procedures  should  be  included  in  compilation 
and  Generate  code. 


Before  beginning  execution  of  the  object  prooram/  the  job 
control  languaoe  commands  necessary  to  deactivate  (turn 
off)  the  object  time  debugging  switch  must  be  submitted. 

At  execution  time/  code  Generated  from  debug  lines  should 
be  executed/  but  debugoino  procedures  should  be  deactivated 
by  the  object  time  switch. 


DR103 


X -Numbers : 


Features  Tested: 


Basic  set  only. 

DB113  tests  the  basic  operation  of  Metug  Module  facilities 
wh  en  the  compile  time  debuooinq  switch  is  off.  All  debug 
lines  should  be  treated  as  comments  and  no  code  should 
be  Generated  for  either  debuo  lines  or  debuggiro  procedures 
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The  object  pronram  for  D R 1 0 3 should  be  executed  twice:  once 
with  the  object  time  debugging  switch  enabled  (on)/  and  once 
with  the  object  time  debuggino  switch  disabled  (off).  Roth 
execution  runs  should  yield  the  same  results  as  the  setting 
of  the  object  time  debuggino  switch  should  make  no  difference 
since  the  compile  time  dehucoino  switch  was  initially 
disabled. 

D A104 


x-Nusibers:  Basic  set  plus  14a  27a  69a  74a  75. 

Features  Tested:  D8104  tests  the  capability  of  the  Debug  Module  to  handle 

procedures  tied  to  sort  input  a sort  output  and  file 
declarative  procedures.  This  program  is  to  be  compiled 
and  executed  with  both  compile  and  object  time  debugging 
switches  enabled.  The  prooram  first  builds  a sequential 
file  containing  99  eighty  character  records.  This  file 
is  then  sorted. 

All  debugging  procedures  should  be  included  in  compilation 
and  generate  code.  Before  beginning  execution  of  the  object 
program/  the  job  control  language  commands  necessary  to 
activate  the  object  time  debuooing  switch  must  be  submitted. 

Execution  of  the  program’s  sort  should  trigger  debugging 
procedures  at  the  beoinnina  of  the  sort  input  and  sort 
output  procedures.  During  execution  of  the  sort  input 
procedure/  an  end-of-file  condition  on  the  input  file  should 
trigger  a declarative  procedure  associated  with  the  file/ 
and  this  in  turn  should  cause  execution  of  a debug ginq 
procedure  monitorino  the  file  declarative  procedure. 

The  performance  of  the  SORT  verb  is  not  checked  in  D^1D4. 


D B 1 0 5 


X-Numbers:  Basic  set  only. 

Features  Tested:  DB105  tests  the  capability  of  the  Detuo  Module  to  monitor 

all  procedures  with  a single  detugaing  declarative.  This 
program  is  to  be  compiled  and  executed  with  both  compile  and 
object  time  debugging  switches  on.  The  dehuoaino  procedure 
should  be  included  in  the  compilation  and  code  should  be 
generated  for  the  procedure.  During  execution/  each  pro- 
cedure should  trigger  the  debugging  procedure  which  stacks 
the  name  of  the  procedure  calling  it.  Prior  to  heinq 
stacked/  each  name  is  potentially  adjusted  by  modifying  a 
fixed-location  numeric  subfield  in  the  name.  If  the  program 
executes  properly/  the  names  that  are  stacked  will  be  unique 
and  in  an  ascending  sequence  in  the  numeric  subfield.  Near 
the  end  of  the  program  the  stacking  function  is  disabled/ 
and  the  name  stack  is  compared  to  a static  table  containing 
procedure-names  in  the  order  in  which  the  procedures  sbouM 
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have  stacked. 

DB 1 05  ’ s output  report  differs  slightly  from  the  normal  CCVS 
format.  If  execution  is  perfects  the  report  wilt  consist  of 
227  lines  showing: 

(1)  Program  procedure  name  as  it  appears  in  the  program/ 

(?)  Adjusted  procedure  name  after  its  numeric  subfield 
has  been  adjusted/ 

(7)  Adjusted  debug-name  that  was  stacked  by  the 
debugging  procedure. 

Nominally/  the  numeric  subfields  of  the  procedure  names 
should  appear  in  ascending  sequence.  *ny  deviations  in  the 
stacking  sequence  from  the  expected  seouence  will  cause 
additional  report  lines  to  be  generated  with  one  or  more 
columns  blank.  If  nothing  ever  appears  in  the  ’ADJUSTFd 
DEBSJG-MAM  F.  * column/  it  may  be  assumed  that  the  riebuggina 
procedure  was  never  executed. 

It  is  a fundamental  assumption  of  DB105  that  when  a section 
is  entered/  the  debugging  section  will  be  called  twice/  once 
for  the  section  name  and  once  for  the  par anr ap h-n ame  that 
immediately  follows  the  se  c t i on -name  . A dd  i t iona  1 1 y / D'1fir 
traps  any  failures  in  program  flow  caused  by  a faiture  of 
verbs  from  the  nucleus  module.  These  failures  are  summed 
and  reported  at  the  bottom  of  DPl05*s  report.  If  any 
procedure-names  beginning  with  ’PROC-OOO*  appear  in  the 
’ADJUSTED  DEBUG-NAPE*  column  of  the  report/  these  result 
from  execution  of  procedures  which  should  not  have  been 
executed  if  the  program  had  followed  the  proper  control  flow 
seouence. 


DB201 


X-Numbers:  Basic  set  only. 

Features  Tested:  D B 2 3 1 tests  the  capability  of  the  Oebuo  Module  to  handle 

debuqging  procedures  which  are  monitoring  identifiers 
specified  with  and  without  the  ’ALL  REFERENCES’  option. 

This  program  is  to  be  compiled  and  executed  with  both 
compile  and  object  time  debugging  switches  enabled.  The 
debugging  procedures  should  be  included  in  compilation  and 
code  should  be  generated  for  them.  Debugging  sections  on  the 
following  conditions  are  analyzed: 

(1)  Reference  to  identifier  within  'VARYING'/  'AFTER  ’ 
and  ’UNTIL*  phrases  of  PERFORM  statements/ 

(?)  Reference  to  chanced  and  unchanoed  identifier 
fields/ 

(7)  Reference  to  subscripted  identifiers/ 

(4)  Reference  to  qualified  identifiers/ 

(5)  Reference  to  identifier  used  in  CO  TO  DFPFNDInG/ 

(6)  Reference  to  identifier  in  unexecuted  statements/ 
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Multiple  references  to  same  identifier  in  sarre 
statements. 


DP202 


X -Numbers 


DB202  tests  the  capability  of  the  Debug  Module  to  handle 
debugging  procedures  which  are  monitoring  I -0  functions  of 
the  Sequential  1-0  Module.  This  program  is  to  be  compiled 
and  executed  with  both  compile  and  object  time  debuoainn 
switches  on.  The  debugging  procedures  should  be  included 
in  compilation  and  code  should  be  generated  for  them. 


During  execution  a sequential  file  is  created  containing 
80-character  records.  The  file  is  then  read.  Execution  o' 
OPEN/  READ/  and  WRITE  statements  should  trigger  the 
appropriate  debugging  procedures. 


DP203 


X -Nu iribers 


D8203  tests  the  capability  of  the  Debug  Module  to  handle 
debugging  procedures  which  are  monitoring  1-0  functions  of 
the  Relative  1-0  or  Indexed  1-0  modules.  This  srogram  is 
to  be  compiled  and  executed  with  both  compile  and  object 
time  debugging  switches  on.  The  debuagino  procedures  should 
be  included  in  compilation  and  code  should  be  generated  for 
them.  During  execution  a file  is  assigned  in  dynamic  mode/ 
created  seauentially  and  accessed  both  seouentially  and 
randomly.  Its  records  are  80-characters  in  length.  Execu- 
tion of  OPEN/  R F A D / WRITE/  REWRITE/  START / and  DELETE 
statements  should  trinoer  the  appropriate  dehuoging  proce- 
dures . 


F eatu  res  Tested 


D 320  A 


X -,\u  mber  s 


DB204  tests  the  capability  of  the  Debug  Module  to  handle  a 
debugging  procedure  which  is  monitorino  a MEROF  OUTPUT 
procedure.  This  program  is  to  be  compiled  and  executed  with 
both  compile  and  object  time  debuaging  switches  on.  The 
debugging  procedure  should  be  included  in  compilation  and 
code  should  be  generated  for  th»  procedure.  During  execu- 
tion/ two  sequential  files  are  created  with  each  cortainino 
80-character  records  in  sorted  order.  The  two  files  are 
then  merged.  Execution  of  the  merge  operation  should  trigger 
the  debuoaing  procedure  linked  to  the  irmrae  output  procedure 
name  . 


F eatu  res  Test  ed 


X-humbers:  Basic  set  only. 

Features  Tested:  The  program  DR  422  contains  level  1 Debug  lanouage  features 

for  ourposes  of  testing  the  FIPS  PUP  21-1  flagging  require- 
ment. The  DEP  level  1 elements  in  this  program  are  con- 
tained in  the  Low -Intermediate  level  of  Federal  Standard 
COBOL.  The  Environment  Division  clause  to  be  flagged  is 

WITH  DEBUGGING  PODE  . 

The  Procedure  Division  statement  to  be  flaqoed  is 
USE  FOR  DEBUGGING  ON  ALL  PROCEDURES. 


D b 4 3 1 


X-Numbers:  Basic  set  plus  14/  30/  32/  6P/  74/  75. 

Features  Tested:  The  pronram  DP431  contains  level  ? Debug  lannuag*5  features 

for  purposes  of  testino  the  FIPS  PUB  21-1  flaoqing  require- 
ment. The  DER  level  2 elements  in  this  program  are  contained 
in  the  High-Intermediate  level  of  Federal  Standard  COBOL. 

The  Procedure  Division  statements  to  be  flagged  are 
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USE 

FOR 

DF BUGGING 

ON 

cd-name. 

USE 

FOR 

DEBUGGING 

ON 

fi  le  name -series  . 

USE 

FOR 

DEBUGGING 

ON 

ALL  RE  FFRFNCFS  CF 

identifier. 

In  order 

t 0 

produce  a 

syntactically  correct 

prooram,  De431 

also  contains  elements  from  level  1 of  the  Secuential  1-0 
and  Communication  Modules;  these  statements  will  not  be 
executed  unless  the  WORKING-STORAGE  item  COMP-FLAG  is  modi- 
fied to  a non-zero  VALUE  prior  to  compilation.  This  obviates 
the  necessity  to  set  up  a Communication  environment  in  order 
t o run  DB431  . 


II  I 
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D.3  INTER-PROGRAM  communication  module 


I Cl  01 


X- Numbers: 


features  Tested: 


IC102 


X-Number s : 


Features  Tested: 


I Cl  03 


X -Numbers: 


Features  Tested: 


I Cl  04 


X-Number  s : 


F eat  u res  Tested: 


Basic  set  only. 

This  routine  checks  the  use  of  the  CALL  statement  with  one 
parameter  in  the  USING  phrase.  Subsequent  calls  check  that 
the  called  routine  remains  in  the  last  used  state.  This 
proqram  calls  subprogram  IC102. 

There  are  no  test  deletion  paragraphs  in  this  routine  since 
these  are  the  basic  CALL  tests  and  if  a CALL  statement  is 
rejected  there  is  no  reason  to  run  the  routine. 

The  first  three  CALLs  use  a data-name  the  same  as  the  name  in 
the  subpronram  PROCEDURE  DIVISION  header  USING  phrase.  The 
last  two  CALLs  use  a data-name  different  from  the  name  in 
the  subprogram.  The  PICTURE  clauses  for  data-names  in  the 
USING  phrases  of  the  called  and  callim  proorams  are 
identical. 


Basic  set  only. 

This  subprogram  is  called  by  IC101  and  tests  the  use  of  the 
LINKAGE  SECTION  and  the  USING  phrase  in  the  PROCEDURE  DIVISION 
header. 


Basic  set  only. 

This  program  tests  the  use  of  multiple  data-names  in  the  USING 
phrase  of  the  CALL  statement.  Two  01  oroup  items  and  an 
elementary  77  item  are  the  parameters.  The  data  definitions 
for  the  group  item  parameters  are  not  the  same  as  in  the  sub- 
program but  the  number  of  characters  are  identical.  THs 
program  CALLs  subprograms  IC1P4  and  1 C 1 0 5 . 


Basic  set  only. 

The  subprogram  IC1H4  has  three  operands  in  the  USING  phrase 
of  the  PROCEDURE  DIVISION  header.  Two  operands  are  'll  orour 
items  and  the  third  is  an  elementary  77  item.  The  data 
descriptions  o*  these  operands  in  the  LINKAGF  SFCTICN  <»rr  not 
the  same  as  the  data  descriptions  in  the  WORK  1 1 P-STOk A fi F 
SECTION  of  the  calling  program#  but  an  equal  number  of  char- 
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act er  positions  are  defined.  The  calling  proaram  is  IC107. 


I C 1 05 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  IC105  has  two  operands  in  the  PROCEDURE 

DIVISION  header  and  the  routine  contains  four  EXIT  P R 0 0 R A d 
statements.  The  calling  program  is  IC103. 


I C 1 0 6 


X-Numbers: 


Basic  set  only. 


Features  Tested:  This  program  CALLS  subprogram  IC107  with  two  tables  ano  an 

index  data  item  referenced  in  the  USING  phrase  of  the  CALL 
statement.  Both  of  the  tables  contain  an  INDEXED  BY  clause. 

The  tests  in  this  program  verify  that: 

(1)  The  indices  in  the  main  program  and  the  subprogram 
are  separate. 

(?)  An  index  data  item  set  in  a main  proaram  can  be  used 
to  set  an  index  in  a subprogram. 

(3)  Tables  can  be  shared  between  a main  urogram  and  a 
subprogram. 

I C 1 0 7 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  IC107  contains  tables  and  an  index  data  item 

which  are  defined  in  the  L I N < A G F SECTION  and  named  as  operands 
in  the  USING  phrase  of  the  PROCEDURE  DIVISION  header.  One  cf 
the  tables  has  an  index  defined  for  it.  This  index  should  *-e 
separate  from  the  index  defined  for  the  same  table  in  the  main 
program  I Cl  06/  but  no  space  should  be  allocated  for  the  tables 
defined  in  the  LINEAGE  SECTION.  The  index  data  item  is  set  in 
the  main  program  prior  to  calling  IC107/  and  it  is  used  in 
this  subprogram  to  set  an  index  for  referencing  the  table  in 
the  subprogram. 


I C 1 C b 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  program  1C10S  is  the  main  program  which  starts  a seouer. ce 

of  CALLs  to  the  subprograms  I C 1 09  / I C 1 1 0 and  I C 1 1 1 . Para- 
meters are  set  in  each  of  these  subprograms  and  checked  when 
control  is  returned  to  the  main  program. 


Features  Tested:  The  subproqram  IC111  is  the  last  subproaram  CALLed  in  a 

sequence  of  subproaram  CALLs  which  is  started  in  the  main 
program  1008.  The  subproaram  I C 1 1 1 is  CALLed  ty  the  sub- 
proaram I C 1 10- 


IC11? 


X-Numbers:  Pasic  set  plus  14*  69*  74*  75. 

Features  Tested:  The  routine  IC112  is  a main  prooram  which  has  a file  descrip- 
tion for  a sequential  mass  storaae  file  with  fixed-lennth 
records.  The  file  is  created*  CL OS  Ed  and  CPF Ned  as  an  input 
file.  The  main  prooram  reads  the  file  and  verifies  that  the 
file  is  correct.  The  file  is  CLOSFd  and  OPFNed  aaain  as  an 
input  file.  A record  is  read  and  a CALL  is  made  to  the  sub- 
program 1013  with  the  file  description  01  record  listed  as 
one  of  the  operands  of  the  USINfi  phrase.  The  subproqram 
I C 1 1 3 compares  the  fields  in  the  input  record  to  the  values 
written  when  the  file  was  created. 

This  proqram  was  adapted  from  the  Sequential  1-0  tests 
contained  in  proqram  SG104.  If  any  errors  occur  in  running 
the  routine  SOIL 4 the  results  of  the  tests  in  routines  IC11? 
and  I C 1 1 3 are  inconclusive. 

I C 1 1 3 


X- Numbers:  Pasic  set  only. 
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which  references  a file  description  record  in  the  USING 
phrase  of  the  CALL  statement.  IC113  checks  the  values  in  the 
file  record  described  in  the  L I N K A G F SECTION  of  the  subpro- 
pram. If  any  errors  are  encountered/  the  error  fl3o  is  set 
to  1 and  the  RE C OR DS-I N -E PR OR  counter  is  incremented  by  1 . 

I C 1 1 4 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  program  I C 1 1 4 is  a main  proaram  which  CALLS  the  subproaram 

I C 1 15.  The  purpose  of  these  programs  is  to  verify  that  a FILE 
SECTION/.  WORKING-STORAGE  SECTION  and  a LINKAGE  SECTION  can 
appear  in  a subprogram/  and  that  a file  can  be  written  and 
read  within  a subprogram. 

The  program  I C 1 1 4 CALLS  IC115  to  create  and  verify  the  file. 
Subsequent  CALLs  to  the  subprogram  are  made  to  read  the  file 
and  return  a record  to  the  main  program  which  checks  the 
record  contents. 

The  subprogram  I C 1 1 5 is  adapted  from  the  Sequential  1-0 
program  SG104.  If  SQ104  does  not  execute  correctly  then  the 
results  of  these  tests  are  inconclusive. 

IC11  5 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  program  IC115  is  a subprogram  CALLed  by  IC114.  This 

subprogram  contains  a FILE  SECTION/  WORKING -STOF  AGE  SECTION 
and  LINKAGE  SECTION.  A file  is  created  and  verified 
in  this  routine.  The  file  is  orened  and  road  ana  in.  Each 
record  is  checked  by  moving  it  to  the  LINKAGF  SECTION  and 
returning  to  the  main  program  to  verify  the  record  contents. 
The  printing  of  the  output  report  for  the  test  results  is 
performed  by  returning  to  the  main  program. 

This  subprogram  is  adapted  from  the  Sequential  1-0  routine 
S9104.  If  that  routine  does  not  perform  correctly  then  the 
results  of  these  tests  are  inconclusive. 


I C 1 1 6 


X -Numbe  rs : 
Features  Tested: 


easic  set  only. 

The  program  I C 1 1 6 tests  the  CALL  statement  without  the 
optional  USING  phrase.  The  subprograms  IC117  and  IC11 
test  the  omission  of  the  optional  USING  phrase  in  the 
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Procedure  Division  header  of  a subprooram.  The  program 
IC116  calls  the  subprogram  I C 1 1 7 which  in  turn  calls  the 
subprogram  IC11E-  The  subprograms  contain  DISPLAY  state- 
ments which  show  the  execution  sequence. 

I C 1 1 7 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  I C 1 1 7 does  not  contain  a Linkage  Section  or 

the  optional  USING  phrase  in  the  Procedure  Division  header. 
IC117  is  called  by  the  main  program  IC116  and  calls  I C 1 1 8 . 
The  CALL  statement  also  does  not  have  the  optional  U^I\C 
phrase.  DISPLAY  statements  are  used  to  verify  the  program 
execution  sequence. 

I C 1 1 « 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  IC118  is  called  by  the  subproarar  T C 1 1 7 . The 

subprogram  IC118  does  not  contain  a Linkage  Section  or  the 
optional  USING  phrase  in  the  Procedure  Division  header.  A 
DISPLAY  statement  is  executed  to  verify  that  this  subprooram 
was  executed. 

I C 1 1 9 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  program  IC119  is  a main  program  with  a Linkage  Section 

and  a Procedure  Divison  header  with  the  optional  USING  phrase. 
The  purpose  of  this  prooram  is  to  test  that  a rrooram  can 
function  as  either  a main  program  or  as  a subprogram  dependino 
upon  whether  it  is  called  or  not.  The  procedure  division 
statements  which  are  executed  do  not  reference  data  items  in 
the  Linkage  Section,  but  the  statements  which  are  not  executed 
do  reference  data  items  defined  in  the  Linkage  Section. 

IC120 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  IC120  contains  a linkaae  Section  defininn  five 

records.  The  Procedure  Division  header  for  this  subproarar 
names  only  two  of  the  five  records  contained  in  the  Linkaae 
Section.  The  main  program  ICIIv  calls  this  subjrogram. 
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I C 1 2 1 


X-Numbe  r s : 


Features  Tested: 


I C 1 22 


X -Numbers : 


Features  Tested: 


I C 1 2 3 


X-Numbers: 


Features  Tested 


IC1  SI 


X-Number s: 


Features  Tested: 


Basic  set  plus  27. 

The  main  propram  I C 1 2 1 calls  the  subprogram  1 C 1 2 2 which  con- 
tains a SORT  statement.  The  purpose  of  these  rroqrams  is  to 
verify  that  a SORT  statement  functions  correctly  in  a sub- 
program. Control  is  not  returned  to  this  program  since  I C 1 2 2 
contains  a STOP  RUN  statement. 


Basic  set  plus  27. 

The  subprogram  I C 1 22  tests  the  use  of  a SORT  statement  in  a 
segmented  subprogram.  The  first  non-declarative  section  ol 
the  subprogram  consists  of  a SORT  statement  and  a STOP  RUN 
statement  in  a fixed  permanent  segment.  The  sort  input 
procedure  and  sort  output  procedure  are  contained  in  two 
independent  segments.  The  main  program  1C121  calls  this 
subprogram  and  the  subprogram  IC123  is  called  from  the  out- 
pjt  procedure  section  to  print  the  output  report. 


Basic  set  plus  27. 

The  subprogram  IC123  prints  the 
set  IC121,  I C 1 22  and  IC123.  It 
I C 1 2 1 and  the  subprogram  I C 1 2 2 . 
whether  the  heading/  footing  or 
printed. 


test  results  for  the  program 
is  called  by  the  main  program 
A linkage  variahle  indicates 
a report  line  is  to  be 


Basic  set  only. 

This  routine  checks  the  use  of  the  CALL  statement  with  one 
parameter  in  the  USINS  phrase.  Subseauent  CALLs  check  that 
the  CALLed  routine  remains  in  the  last  used  state.  This 
program  CALLs  subprogram  I C 1 5 2 . 

There  are  no  delete  paragraphs  in  this  routine  since  these  are 
the  basic  CALL  tests  and  if  a CALL  statement  is  rejected  there 
is  no  reason  to  run  the  routine. 


The  first  three  CALLs  use  a data-name  the  same  as  the  name  in 
the  subproaram  PROCEDURF  DIVISION  deader  USING  phrase.  The 
last  two  CALLs  use  a data-name  different  from  the  name  in  the 
subprogram.  The  PIC  clauses  for  data-names  i n the  USI^G 
phrases  of  the  CALLed  and  CALLing  programs  are  identical. 


1 
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I C 1 57 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  subprogram  is  CALLed  by  IC151  and  tests  the  use  of  the 

LINKAGE  SECTION  and  USING  phrase  in  the  PPOCEDURF  DIVISION 
header. 


IC2C11 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  program  IC201  CALLS  subprogram  I C 2 0 ? and  tests  the  CALL 

statement  with  an  identifier  as  an  operand/  and  four  operands 
in  the  USING  phrase.  The  repetition  of  a data-name  in  the 
USING  phrase  is  tested/  and  the  use  of  the  ON  OVER  FLO*  phrase 
in  a CALL  statement  is  syntactically  checked  in  the  program. 


I C20? 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  IC202  is  CALLed  by  prooram  IC2H1.  The  sub- 

prooram  has  four  operands  in  the  USING  phrase  of  the  PROCEDURE 
DIVISION  header. 


I C 203 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  program  IC203  tests  the  use  of  the  CANCEL  statement.  This 

program  CALLS  IC204  and  IC205  and  verifies  that  the  initial 
CALL  to  a subprooram  and  the  first  CALL  after  a CANCEL  results 
in  a subprogram  being  entered  in  its  initial  state.  The 
program  also  CANCELS  a program  which  has  not  been  CALLed/  in 
which  case  control  should  pass  to  the  next  sentence. 


I C204 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  IC7G4  has  two  variables  in  WORKING-STORAGE 

which  are  initialized  by  a VALUE  statement.  The  data  contents 
of  these  variables  are  modified  during  execution  of  the 
subprogram.  Indicators  are  set  for  variables  in  the  LINKAGE 
SECTION  which  relate  how  many  times  the  subprogram  has  been 
CALLed  since  it  was  initialized/  and  whether  or  not  the  sub- 
program is  in  its  initial  state. 
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I C 20  5 


X -Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  IC205  tests  the  use  of  the  CANCEL 

statement  within  a subprogram.  This  subprogram  is 
CALLed  by  IC203  and  CALLS  subprograms  IC204  and  IC206. 


I C 206 


X-Numters:  Basic  set  only. 

Features  Tested:  The  subprogram  IC2Gb  is  CALLed  by  the  subprogram  IC2Q5.  The 

subprogram  is  then  CANCFLed  and  CALLed  again.  The  program 
IC2G5  checks  if  IC206  was  in  its  initial  state  on  the  first 
CALL  after  the  program  was  CANCELed. 

The  LINKAGE  parameter  DM  contains  the  number  of  times  IC2E6 
has  been  CALLed  since  initialization. 


I C207 


X- Numbers:  Basic  set  only. 

Features  Tested:  The  program  IC207  defines  a variable  length  tal  le.  The  table 

and  the  variable  containina  the  table  length  are  operands 
in  a CALL  statement  USING  phrase.  Also  an  index  is 
defined  for  the  table  and  an  index  data  item  is  used  to  rass 
an  index  value  for  a table  reference  to  and  from  the  sub- 
program IC20*. 


I C20° 


X -Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  IC20P  contains  tables  and  an  index  data  iter 

which  are  defined  in  the  LINKAGF  SFCTION  and  named  as  operands 
in  the  USIM  phrase  of  the  PROCEDURE  DIVISION  header.  One  of 
the  tables  is  defined  with  an  OCCURS  DEPEN  DINT  jtg  clause  an*4 
has  condition -name  entries  associated  with  it.  The  SEARCH 
statement  is  used  to  test  a variable  length  table  capability. 

I C 42  1 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  program  IC421  contains  thp  level  1 Inter-Program  Communi- 
cation language  features  for  purposes  of  testing  the  FIPS  PUP 
21-1  flagainq  requirement.  The  IPC  level  1 elements  in  this 
p r on  r am  are  contained  in  the  Low-Intermediate  Level  of  Federal 
Standard  COBOL.  The  Procedure  hivison  statement  to  He  flaqoed 
i s 
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CALL  literal  USING  data-name  series. 

The  subprogram  IC422  is  called  by  this  prooram. 

I C 42 2 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  subprogram  IC422  contains  the  level  1 Inter-Froaram 

Communication  language  features  for  subprograms  for  purposes 
of  testing  the  FIPS-PUo  21-1  flagging  requirement.  The  IPC 
level  1 elements  in  this  subprogram  are  contained  in  the  low- 
Intermediate  Level  of  Federal  Standard  COBOL.  The  data 
Division  entry  to  be  flagged  is 

LINKAGE  SECTION. 

The  Procedure  Division  statements  to  be  flagoed  are 

PROCEDURE  DIVISION  USING  data-name  series. 

F X I T PROGRAM. 

The  main  program  IC421  calls  the  suhproaram  IC422. 

IC431 


X-humbers:  Basic  set  only. 

Features  Tested:  The  program  IC431  contains  the  level  ? Inter-Program 

Communication  language  features  for  purposes  of  testing 
the  FIPS  PUB  21-1  flagging  requirement.  The  IPC  level  ? 
elements  in  this  program  are  contained  in  the  High- 
Intermediate  Level  of  Federal  Standard  COBOL.  The  Procedure 
Division  statements  to  be  flanged  are 

CALL  identifier  USING  data-name  series. 

CALL  literal  USIN^  data-name  series 
ON  OVFkFLQW  imperative-statement. 

CALL  identifier  USING  data-name  series 
ON  OVF  R FLOW  i mpe r a t i v e -s t a t e me n t . 

CANCEL  literal. 

CANCEL  identifier. 

The  subprogram  IC432  is  called  by  the  program  IC431. 

IC432 


X -Numbe  r s : 
Features  Tested: 


t 


I 
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elements  for  subprograms#  this  subprogram  contains  the  IRC 
level  1 elements  for  purposes  of  testing  the  FIPS  PUR  21-1 
flagging  requirement.  The  IPC  level  1 elements  in  t h i «= 
subprogram  are  contained  in  the  Low-Intermediate  Level  of 
Federal  Standard  C0R0L.  The  Data  Divison  entry  to  be 
f lagged  i s 

LINKAGE  SECTION. 

The  Procedure  Division  statements  to  be  flagged  are 

PROCEDURE  DIVISON  USING  data-name  series. 

EXIT  PROGRAM. 
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D . 4 INDEXFD  I - 


I X1U1 

X -Numbers  : 
Features  Tested 

1X10? 

X-N'umbers: 
Features  Tested 


I Xl  03 

X -Number  s : 
Features  Tested 


I Xl  04 

X -Numbers  : 
Features  Tested 
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MODULE 


Basic  set  plus  ?4 # 44#  6<>#  74#  75. 

This  program  creates  and  verifies  a 500  record  fixed  length 
indexed  file  whose  access  mode  is  seouential.  The  indexed 
file  created  in  1x101  is  passed  to  1x102  for  further  pro- 
cessing. 


Basic  set  plus  24#  44#  69#  74#  75. 

This  program  is  used  to  verify  the  indexed  file  created  in 
1X101.  The  access  mode  for  the  file  in  this  program  is 
random.  The  file  is  verified  as  to  the  existance  and 
accuracy  of  the  500  records  created  by  1X101.  Then  certain 
records  are  selectively  updated#  and  the  accuracy  of  each 
record  is  verified  aaain.  The  updated  indexed  file  is  passed 
to  1X103  for  further  processino. 


Easic  set  plus  24#  44#  69#  74#  75. 

This  program  is  used  to  verify  the  indexed  file  updated  in 
1X102.  The  access  mode  for  the  file  in  this  program  is 
sequential.  The  file  is  verified  for  accuracy  of  its  500 
records.  Then  certain  records  of  the  file  are  selectively 
deleted#  and  the  accuracy  of  each  record  is  verified  again. 


Basic  set  plus  25#  45#  69#  74#  75. 

This  program  is  used  to  create  an  indexed  file  whose  access 
mode  is  sequential  and  then  selectively  update  the  file. 

The  FILE  STATUS  data  item  is  tested  for  each  OF  F N # CL0SF# 

READ#  and  REWRITF  statement.  For  this  program  the  READ# 

WRITE#  and  REWRITE  statements  are  used  without  the  appropriate 
AT  END  and  INVALID  fEY  phrases. 


X -Numbe  r s : 


Basic  set  plus  24#  44#  69#  74#  75. 
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Features  Tested: 


I X 1 06 


X- Number s : 


This  program  creates  and  verifies  a 500  record  fixed  lengtl 
indexed  file  whose  access  mode  is  seouent i»l  . The  indexed 
file  created  in  1X105  is  passed  to  1x106  for  further  pro- 
cessing. 


Basic  set  plus  74  , 44  , £5*  51,  53,  69,  74,  75, 


Features  Tested:  This  program  tests  the  use  of  the  R F R U N clause  with  an  indexed 

organized  file  whose  access  mode  is  sequential.  1X106  pro- 
cesses the  file  created  in  1X105. 

Special  Considerations: 

This  program  requires  that  at  least  one  of  the  permissible 
RERUN  clauses  for  indexed  files  be  specified  for  the  X-53 
card. 


1X107 


X - N u m h e r s : 


Features  Tested: 


Basic  set  plus  24,  25, 


This  proqram  tests  the  use  of  the  SA'iE  AREA  clause  for  two 
indexed  files  whose  access  mode  is  sequential.  After  each 
file  is  created  they  are  processed  and  verified  using  various 
combinations  of  the  READ  statement  with  the  AT  END  phrase. 


1X201 


X- Numbers: 


Features  Tested: 


Basic  set  plus  24, 


74,  75. 


1X202 


X-Numfcers: 


Features  Tested 


This  program  creates  and  verifies  a 500  record  fixed  tength 
indexed  file  whose  access  mode  is  sequential.  The  indexed 
file  created  in  1X201  is  passed  to  1X202  for  further  pro- 
cessing. 


Basic  set  plus  24,  44,  69,  74,  75. 

This  program  is  used  to  verify  the  indexed  file  created  in 
1X201.  The  ACCFSS  MOD F IS  DYNAMIC  clause  is  used  for  the 
^ i l e in  this  program.  The  file  is  verified  as  to  the 
existance  and  accuracy  of  the  500  records  created  bv  1x201. 
Then  certain  records  are  selectively  updated,  and  the 
accuracy  of  each  record  is  verified  again.  The  updated 
indexed  file  is  passed  to  1X20  3 for  further  procession  . 


H 
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1X203 


X-Numbers:  Basic  set  plus  24/  44/  69/  74/  75. 

Features  Tested:  This  program  is  the  third  in  a series.  It  is  used  to  verily 

the  indexed  file  updated  in  IV2C'2  using  the  ACCESS  lODE  IS 
DYNAMIC  clause.  The  file  is  verified  sequentially  for 
accuracy  of  its  500  records.  Then  certain  records  of  the 
file  are  selectively  deleted/  and  the  accuracy  of  each 
record  is  verified  again. 

I X2DA 


X-Numbers:  Basic  set  plus  25/  45/  69/  74/  75. 

Features  Tested:  This  program  is  used  to  create  an  indexed  file  sequentially 

usinc  the  ACCESS  D YN*  v I C clause  a n^  then  update  selective 
records  within  the  file  using  the  REWRITE  statement.  The 
FILE  STATUS  data  item  is  tested  for  each  OPEN/  CLOSE/  RFAD 
and  REWRITE  statement.  For  this  program  the  READ/  WRITE/ 
and  RF WRITE  statements  are  used  without  the  optional  AT 
END  or  INVALID  KEY  phrases. 

I X205 


X-Numbers:  Basic  set  plus  24/  25/  44/  45/  69/  74/  75/  86. 

Features  Tested:  This  program  is  used  to  test  various  permissible  syntactical 

constructs  of  level  2 of  the  Indexed  I -0  module.  The  con- 
structs tested  are: 

ACCESS  MODE  DYNAMIC 

ALTERNATE  RFC0RD  KEY  without  the  duplicates  options 
RESERVF  clause 
SAME  clause 

BL0CX  CONTAINS. ..TO...  clause 
VALUE  OF clause 


I X2U6 


X-Numbers:  Basic  set  plus  24/  25/  44/  45/  69/  74/  75/  86/  c7/  Qo. 

Features  Tested:  This  program  is  used  to  test  various  permissible  syntactical 

constructs  of  level  ? of  the  Indexed  1-0  module.  One  file 
is  created  and  accessed  using  the  a c C F S S DYNAMIC  clause. 
a second  accessed  using  the  ACCESS  MODE  IS  SEQUENTIAL  clause. 
The  constructs  tested  are: 

ACCESS  DYNAMIC 

ACCESS  MODE  IS  SEQUENTIAL 

ALTERNATE  RECORD  KAY  without  the  duplicates  options 
RESERVE  clause 
SAME  clause 


1 x20? 

X- Numbers 
Features 


I x208 
X -Niumbe  r s 
Features 


I X209 
X -Number  s 
Features 


I X210 
X -N  umbe r s 
Features 
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BLOCK  CONTAINS.  ..  TO. . . clause 
VALUE  OF  implementor-name  series 


: Basic  set  plus  24*  2 5/  44*  45*  69*  74*  75*  76. 

Tested:  This  program  is  used  to  test  various  permissible  syntactical 
contructs  of  level  2 of  the  Indexed  1-0  module.  A fil«  is 
created  and  accessed  in  the  SEQUENTIAL  ACCESS  node.  The 
constructs  tested  are: 

Ordering  of  clauses  in  file  control  entry 
ALTERNATE  RECORD  KEY  with  duplicates  options 
USE  AFTER  STANDARD  EXCFPTION  file-narre  series 
FILE  STATUS  c l ause 


: Basic  set  plus  24*  25*  44*  45*  69*  74*  75*  76. 

Tested:  This  program  is  used  to  test  various  permissible  syntactical 

constructs  of  level  2 of  the  Ineexed  1-0  module.  Two  indexed 
files  are  created  and  verified.  One  tile  is  created  with 
ACCESS  MODE  IS  DYNAMIC  while  the  other  file  is  created  with 
ACCESS  MODE  IS  SEQUENTIAL.  After  each  file  has  been  verified* 
it  is  read  sequentially  using  the  START  statement  to  logically 
position  the  file. 


: Basic  set  plus  24*  44*  69*  74  and  75. 

Tested:  1X209  tests  use  of  the  START  EQUAL  TO  statement  usino 

the  prime  record  key  and  each  of  the  alternate  record  keys 
as  the  key  of  reference.  Included  within  the  START  statement 
is  either  the  data  name  specified  in  the  key  clause  or  a data 
item  that  is  subordinate  to  the  key  name.  Different  key 
values  are  used  for  testino.  If  a key  value  is  provided  which 
matches  a record  in  the  file  when  the  START  statement  is 
executed*  then  the  record  is  expected  to  be  made  available  by 
the  subsequent  READ  statement.  If  a key  value  is  provided 
which  does  not  match  any  record  in  the  file*  then  toe  INVALID 
KEY  path  is  expected  to  be  taken.  The  contents  of  the  FILE 
STATUS  key  are  saved  and  checked  after  the  execution  of  each 
START  statement. 


: Basic  set  plus  24*  44*  69*  74*  and  75. 

Tested:  1x210  tests  use  of  the  START  GRFATER  THAN  statement 
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using  the  prime  record  key  and  an  alternate  record  key  as 
the  key  of  reference.  Included  within  the  START  statement 
is  either  the  data  name  specified  in  the  key  clause  or  a 
data  item  that  is  subordinate  to  the  key  name.  Different  key 
values  are  used  for  testing.  If  a key  value  is  provided  which 
matches  a record  in  the  file  when  the  START  statement  is 
executed/  then  the  record  is  expected  to  be  made  available  by 
the  subsequent  RF*D  statement.  If  a key  value  is  nrovided 
which  does  not  match  any  record  in  the  file/  then  the  INVALID 
KEY  path  is  expected  to  be  taken.  The  contents  of  the  FJLr 
STATUS  key  are  saved  and  checked  after  the  execution  of  each 
START  statement. 


Basic  set  plus  74/  44/  69/  74/  and  75. 

Features  Tested:  1X711  tests  the  capability  to  change  (ucdate)  index  keys  of 

records  in  an  Indexed  file  and  then  retrieve  the  records 
from  the  file  in  the  proper  sequence.  A fundamental  assump- 
tion in  testina  this  capability  is  that  between  the  OPFNina  of 
a file  for  processing  and  the  CLOSE  of  that  file  there  is  no 
reordering  of  the  indexed  keys  for  the  file.  The  records  are 
retrieved  sequentially  from  the  file  as  if  no  updating  had 
taken  place.  When  the  file  is  reopened  for  processing  the 
records  that  were  updated  are  then  expected  to  be  sequen- 
tially accessed  in  the  updated  order. 

Record  modification  for  the  file  involves  the  updating 
of  the  update-number  field/  the  record-key  or  a 1 1 e r na t e -k ey / 
and  the  ODO-Number  field  of  the  record.  Fach  time  a given 
record  is  modified  the  update-number  field  will  be  incremented 
by  one.  To  keep  track  of  those  record  modified/  the  0 DO- num- 
ber field  will  always  carry  the  sequential  location  of  the 
record  within  the  file  which  reflects  the  last  key  value  posi- 
tion before  the  record  was  modified.  This  location  number 
will  be  used  for  verifying  that  the  sequential  reorderino  of 
the  record  for  the  file  was  accomplished  successfully.  Only 
one  of  the  7 record  keys  of  the  record  will  be  modified  for 
any  given  RFwRITE  of  the  record.  A test  is  also  made  to 
insure  that  the  current  record  pointer  is  not  affected  by 
execution  of  the  REWRITF  statment. 


1X211 


X-i\umbers  : 


1X441 


X-Numbers:  Basic  set  plus  14/  24/  25/  26/  53/  69/  74/  76/  77/  76. 

Features  Tested:  The  program  1X441  contains  the  level  1 Indexed  t-Q  lanouaqe 

features  for  purposes  of  testing  the  TIBS  PUP  21-1  flaggina 
requirement.  The  Indexed  I -0  If'vel  1 elements  in  this 
proqram  are  contained  in  the  High  level  of  Federal  Standard 
COBOL.  All  Indexed  J-0  level  1 lanouane  features  are  tested 
in  this  program. 

L 
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1X447 


X-Numbers:  Basic  set  plus  74#  75*  69 # 7 4 # 75#  86. 

Features  Tested:  The  program  1 X447  contains  the  level  7 Indexed  1-0  lan-’uaae 

features  for  purposes  of  testino  the  FIPS  PUB  71-1  flagging 
reauirement.  The  Indexed  I -0  level  7 elements  in  this 
prooram  are  contained  in  the  H i oh  level  o<  Federal  Standard 
COBOL.  All  Indexed  I -0  level  7 language  features  are  tested 
in  this  program.  In  addition#  if  this  program  is  compiled 
specifying  the  Low#  Low-Intermediate#  or  High-Intermediate 
levels  of  Federal  Standard  C 0 B p L # then  all  Indexed  1-0  level 
1 elements  in  the  program  will  also  he  flaoged. 
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D.5  LIBRARY  MODULE 


L P- 1 0 1 


X- Numbers: 


Features  Tested 


LBIO? 


X- Numbers : 


Features  Tested: 


LB  1 03 


X-Number  s : 


Features  Tested: 


Basic  set  plus  01 / 69,  7U>  75. 

This  program  tests  the  use  of  the  COPY  statement  i r.  a File 
Description  and  its  related  01  entries/'  in  the  LOCKING-STORAGE 
SECTION/  and  in  the  PROCEDURE  DIVISION.  This  rronram  creates 
a sequential  file  of  7 records  that  is  used  as  input  by  the 
prociram  LB  102  which  checks  the  file  to  assure  proper  °xecuticn 
of  the  COPY  function  in  LP101.  The  library  entries  copied 
into  LB1U1  include: 

K 1 01  A 
K1  FOA 
K 1 W0 1 
K1WC 
K1W03 
K1W04 
KWlK  A 


fiasic  set  plus  01/  69/  74/  75. 

This  program  tests  the  output  file  of  LR101  to  assure  rroner 
execution  of  the  COPY  statements  in  LB101. 


Basic  set  plus  01/  69/  74/  75. 

This  program  creates  a seouential  file  which  is  read  and 
checked  in  LP104.  The  two  proqrams  in  combination  test  the 
COPY  function  for  the  ENVIRONMENT  DIVISION/  SOU RC E -C OMPUTF F / 
OBJECT-COMPUTER/  SPECIAL-NAMES/  FILE-CONTROL  and  I-O-CATROL 
entries.  The  SPECIAL -NAMCS  feature  is  tested  thru  the  use  of 
DECIMAL-POINT  IS  COMMA/  and  the  I-0-C0NTR0L  paranraoh  is 
tested  thru  the  use  of  the  s A " E ARFA  clause.  The  library 
entries  copied  into  LP103  include: 

K 3 F C A 
K 3 I 0 A 
K30C« 

K3SC  A 
K 3 S M 6 


K6  SCA 


L 8 1 0 7 


X- Numbers:  Basic  set  only. 

Features  Tested:  This  propram  tests  the  capability  to  perform  a COPY  of  159v 

source  lines  into  the  PROCFDU^r  DIVISION.  The  library 
entries  copied  into  LP10?  include: 

K7SF  A 


L8201 


X-Numbers:  Basic  set  plus  01/  69/  74/  75. 

Features  Tested;  This  program  tests  the  use  of  the  COTY  REPLACING  statement  in 

the  WOPKING-STCRAGF  SECTION  and  the  PROCEDURE  DIVISION.  ir2(1 
also  tests  the  COPY  REPLACING  statement  for  the  File  Descrip- 
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r:  / 


tion  and  its  related  01  entries.  A 7 record  sequential  file 
is  created  in  LP2P1  and  passed  to  LP2P2  for  precession. 

Note  th3t  WORKING-STORAGE  records  WSTR-3  and  WSTP-5  copy 
library  data  which  is  referenced  elsewhere.  A compiler  may 
require  that  these  COPY  statements  be  chanced  to  C0pY  xlWKY 
and  COPY  K1WK2  respectively.  The  necessity  cf  rakino  such, 
changes  constitutes  test  failures.  The  library  entries 
copied  into  LB201  include: 

<101  A 
<1  FDA 
r . 1 p P B 
K1WK  A 
K 1 K B 


Lb  202 

— 

X-Nurrhers:  Basic  set  plus  01/  69/  74/  7b. 

Features  Tested:  This  program  tests  the  output  file  of  proran  Lr 201  to  assure 


I 


Lb  20  3 


v-bumbe  r s : 

Features  Tested:  This  program  creates  a sequential  file  which  is  checked  in 

program  LB204 . The  two  programs  test  the  CCPV  K FPL  a C I r, 
statement  tor  the  ENVIRONMENT  DIVISION/  FILE-CONTROL  and 
1-0-CONTROL  entries.  Tne  library  entries  copied  into 
Ld20?  include: 

K3FCP 


Basic  set  plus  02/  69/  74/  77. 

Features  Tested:  This  program  checks  the  output  of  program  L P 2 0 1 for  proper 

execution  of  the  COPY  REPLACING  of  SOURCE -COMPUTE R / OBJECT- 
C0wPUTEE/  FILE-CONTROL/  and  I-0-C0NTR0L.  froor r execution  is 
assumed  if  the  sequential  file  created  in  LB293  agrees  with 


L rt  2 0 4 


X-Number  s : 


proper  execution  of  the  COPY  REPLACING  of  the  FD  and  related 
01  entries  for  a sequential  file.  The  prociram  also  checks  the 
COPY  REPLACING  statement  where  the  words  beino  reolaced  are 
paraoraph-names/  one  in  an  ALTFR  statement  / one  in  a p c E F 0 f - / 
and  one  a numeric  raraoraph-name.  »lso  checked  is  the  ability 
to  COPY  with  ret.lace«tent  by  literal/  both  alphanumeric  and 
numeric.  The  library  entries  copied  into  LB202  include: 

<2PRA 

X 7SE  A 


Basic  set  plus  02/  69/  74/  77. 
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Le205 


X -Number s : 


Features  Tested: 
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the  expected  results.  Prooram  LB 2 04  is  similar  to  LHlf'4 
except  that  SPECIAL- NA^ES  is  not  tested. 


Basic  set  plus  G1  * 27*  6*3 , 74*  76. 

LB205  tests  the  COPY  REPLACING  statement  for  a Sort  Descrii - 
tion  and  its  related  01  entries.  The  library  entries  copied 
into  LB205  include: 

IP  501  ft 
r ssdr 


LB206 


X-Numbers : 


Features  Tested: 


LB207 


X- Numbers : 


Features  Tested: 


Basic  set  only. 

This  proqram  exercises  pseudo-text  replacement  in  the 
PROCEDURE  DIVISION.  The  library  entries  copier  into 
LB206  include: 

KPU01 
< P0Q2 
LPOO  3 
<P00  4 
KP0G5 
KP006 
•'POD  7 
KP008 


Basic  set  plus  47. 

This  program  tests  the  COPY  statement  usinc  a qualified 
text-name.  Two  tests  are  executed  each  involving  a COPY 
statement  referencing  the  same  text-name*  but  each  from 
a different  library-name. 

When  the  libraries  are  created  in  preparation  for  running 
LB207  the  text  which  will  be  placed  in  the  library  equated  to 
X-4?  should  be  selected  from  the  population  file  using  the 
Plus-Card  * ♦ALTLB*.  The  text  which  will  be  placed  in  the 
library  eauated  to  x-48  should  be  selected  from  the  population 
file  using  the  Plus-Card  * ♦ AL TL 1 * * * A LT L8 * . 


LB421 


X - \ u mlers : 


Has i c set  only. 


Features  Tested: 


The  program  LB421  contains  level  1 Library  lanouaqe  features 


1 3Q 
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for  purposes  of  testino  the  FIPS  PUB  71-1  flanging  require- 
ment. The  LIP  level  1 elements  in  this  program  are  contained 
in  Low-Intermediate  level  of  Federal  Standard  COBOL.  Tie 
Procedure  hivison  statement  to  he  flagged  is: 

COPY  text-name 


LB441 


X-Numhers:  Basic  set  plus  47. 

Features  Tested:  The  Proaram  Lp441  contains  level  2 Library  lanouaqe  features 

for  purposes  of  testing  the  FIPS  PIB  21-1  flagging  require- 
ment. The  LIB  level  2 elements  in  this  proaram  are  contained 
in  High  level  of  Federal  Standard  COBOL.  The  Procecsure 
Division  statement  to  be  flagged  is: 

COPY  text-name  of  l i L ra r y-name  R E PL A C I N G . . .P v . . . 
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D . 6 NUCLEUS  MODULE 


NC101 


X-Number s 


Ras  i c 


Features  Tested:  This  program  tests  the  MULTIPLY  and  DIVIDE  statements 


NCI  02 


X -Numbe  r s 


This  program  tests  the  use  of  comment  lines  and  the  0 0 TO# 
ALTER#  EXIT  and  PERFORM.  statements. 


N C 1 0 


X -Number s 


Features  Tested:  This  program  tests  the  following  features 


IF 

Lev°l  Numbers 
Switch  Status  Conditions 
Relation  Conditions 
Class  Condi t i ons 

Initialization  of  Items  (exercised 


NIC  104 


X -Numbers 


Features  Tested:  This  program  test  the  M 0 V F statement 


NC  1 05 


X -Nu  mbe r s 


Features  Tested 


This  program  continues  the  tests  of  the  MOVE  statement  which 
were  begun  in  NC104. 


NC106 


X -Numbers 


F(asic  set 


This  program  tests  the  ADD  and  SUBTRACT  statements  with 
the  optional  POIJNDFD  and  ON  SI7F  FRROP  phrases.  Truncation 
of  resultant  data  items  and  the  EXAMINE  statement  are  also 
tested. 


Features  Tested 


r 
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NC1C7 

X -Numbers:  Basic  set  only. 

Features  Tested:  This  proqram  tests  the  foltowinn  COBOL  features: 

Figurative  Constants 

Conti nu at  ion 

JUSTIFIED 

SYNCHRONIZED 

BLANK  WHEN  ZERO 

Long-Names  and  Literals 

REDEFINFS 

USAGE 

special-names 
CURRENCY  SIGN  IS 
DECIMAL -POINT  IS  COMMA 
Reserve  Words  in  Remarks 

N C 1 0 8 


X- Numbers:  Basic  set  plus  51. 

Features  Tested:  This  proa  ram  tests  the  followin’!  COBOL  features: 

Abbreviations 

Compact  IDENTIFICATION  DIVISION 

Sw i t ches 

CURRENCY  IS 

PIC 

COMP 

JUST 

SYNC 

BLANK  ZERO 

COBOL  Character  Set 

Complete  Data  Format 

NCI  09 


X -Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  STOP  literal/  ACCEPT/  and  DISPLAY 

statements. 

Special  Considerations:  The  tests  for  the  ACCEPT  statement  process  data 

from  the  system  input  device  in  the  following  order: 

Entry  1 : ABC D E F GH I J K LMNOPQ RSTU VWX Y Z 
Entry  2:0123456789 
Entry  3: ().♦-*/ $/  = 

Entry  4 ; 9 
E nt  ry  5:0 

Entry  6:  ARC  XYZ 

Entry  7:U1234567o° 

Entry  8:sinole  space 
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Entry  1 P : ABC  D 

Entry  11  :A  R C D E F G H I J K L M N 0 P Q R S T U V W X Y Z 01 23456789 


N C 1 1 C 


X-Numfcer:  Basic  set  only. 

Features  Tested:  The  PROCEDURE  DIVISION'  consists  entirely  of  paragraph- 

names  and  DISPLAY  literal  statements.  The  entire  report 
should  print  on  the  system  output  device.  If  a copy  of 
the  output  report  cannot  be  printed  on  the  output  device/ 
a visual  inspection  must  be  made  of  the  display  device  to 
ensure  the  validity  of  the  tests. 


NC11 1 


X- Numbers:  Esasic  set  only. 

Features  Tested:  This  program  tests  the  ADD  and  SUBTRACT  statements  with  the 

optional  ROUNDED  and  ON  SIZF  ERROR  phrases.  Truncation  of 
resultant  data  items  and  the  EXAMINE  statement  ere  also 
tested. 

>4  C 1 1 2 


X- Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  use  of  multiple  operands  in  ADD/ 

SUBTRACT/  and  MOVE  statements. 

N C 1 1 3 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  verifies  that  a statement  which  must  begin  in 

Area  A can  start  in  any  of  the  character  positions  rj  throuah 

11  . 


H C 1 1 4 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  use  of  stroke/  alphabetic  and  numeric 

editing.  The  00  TO/  IF/  MOVE/  and  PERFORM  statements  are 
also  tested. 


MC1 1 5 


X-Numbers:  Basic  set  only. 
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Features  Tested:  This  program  tests  the  INSPECT  statement 


N C 1 1 6 
— 

X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  SIGN  clause  and  its  optional  clauses. 


N C 1 1 7 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  f'ULTIPLY  and  DIVIDF  statements  which 

contain  operands  defined  with  the  SIGN  clause. 

N C 1 1 8 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  ADD  statement  with  the  optional 

clauses  ROUNDED  and  ON  SITE  ERROR.  Truncation  and  the 
EXAMINE  statement  are  also  tested.  The  operands  in  these 
tests  are  defined  with  the  SIGN  clause. 


NC1 1 9 


X-Numbers:  3asic  set  only. 

Features  Tested:  This  program  tests  the  SUBTRACT  statement  with  the  optional 

ROUNDED  and  ON  SIZE  ERROR  phrases.  The  operands  in  these 
tests  are  defined  with  the  SIGN'  clause  and  truncation  of 
the  result  is  required. 


NC12C 

X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  NULTIPLY  statement  which  contains 

operands  defined  with  the  SIGN  clause. 


\IC151 


X-Numbers: 
Features  Tested: 


Basic  set  on  ly  . 
This  program  tests 


the  MULTIPLY  and  DIVIDE  statements. 
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X-Kumhers: 


Basic  set  only. 


Features  Tested:  This  program  tests  the  r'  0 r FXIT  and  PERFORM  statements. 


M C 1 5 3 


X-Numbers : 


Bas i c set  only. 


Features  Tested:  This  program  tests  the  IF  statement. 


N C 1 5 A 


X-Nu ml?ers  : 


Features  Tested: 


Basic  set  only. 

This  program  continues  the  IF  statement  tests  Irgun  in 
NC153. 


NC155 


X- Numbers : 


Basic  set  only. 


Features  Tested:  This  program  tests  the  followino  features 

Level  Numbers 
Relation  Conditions 
Class  Conditions 
Initialization  of  Items 


NCI  56 


X -Numbe  r s : 


F eatu  res  Tested: 


Basic  set  only. 

This  program  tests  the  ADD  and  SUBTRACT  statements  with  the 
optional  ROUNDED  and  SIZE  FRROR  ehrases.  Truncation  of  the 
resultant  data  items  are  also  tested. 


N C 1 5 7 


X -f.umbe  r s : 


Basic  set  only. 


Features  Tested:  This  program  tests  the  followin'  COBOL  features: 


Continuation 

SYNC 

Long  Names  and  Literals 

REDEFINES 

US  ASF 

Reserve  Words  in  Remarks 


! 
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NCI  58 


X -.Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  STOP  Literal*  ACCEPT*  and  DISPLAY 

st  atement  s . 

Special  Considerations:  The  tests  for  the  ACCEPT  statement  process  data 

from  the  system  input  device  in  the  following  order: 


Entry  1 : AP C DE FGH I J KL^NOPQ RS T UVW X Y 7 
Entry  2:0123456789 
Entry  3: ( ) . +-*/$* 

Entry  4:9 
Entry  5:0 

Entry  6:  ABC  XYZ 

Entry  7:012345678 
Entry  P:sinrle  space 
E nt  r y 9 : * 

Entry  10:ARCD 


NCI  59 


X -Numbers:  Basic  set  only. 

Features  Tested:  The  PROCEDURE  DIVISION  consists  entirely  of  paragraph- 

names  and  DISPLAY  statements.  The  entire  report  should 
print  on  the  system  output  device.  If  a copy  of  the 
output  report  cannot  be  printed  and  saved  on  the  output 
device  a visual  inspection  must  be  made  of  the  disolay 
device  to  ensure  the  validity  of  the  tests. 


NCI  60 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  use  of  stroke*  alphabetic  and 

numeric  editing.  The  GO*  ir*  N0VE*  and  PFRF0RF  statements 
are  also  tested. 


M C 161 

X-Mumbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  h'OVF  statement. 


N C 1 * 2 


X -Numbers  : 


Basic  set  only. 


h. 
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Features  Tested:  This  program  continues  the  tests  of  the  !*OVF  statement 

which  were  heoun  in  NC161. 


MC  163 


X- Numbers:  Basic  set  only. 

Features  Tested:  This  program  continues  the  MOVF  statement  tests  of  NCI  61 

and  NCI  62 . 


NC164 


X- Numbers:  Basic  set  only. 

Features  Tested:  This  program  continues  the  ROVE  statement  tests  of  \C161, 

NC162,  and  NC163. 


NC  165 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  continues  the  IXOVF  statement  tests  of  M C 1 6 1 , 

NC162,  N C 1 6 3 * and  NC164. 


NC201 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  PERFORM  and  IF  statements  with 

qualified  data-names  and  c ond i t i on-name s . The  NO 
TO  statement  without  a procedure-name  is  tested  in 
conjunction  with  the  ALTER  statement. 

NC202 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  ADD  CORRESPONDING  and  SUBTRACT 

CORRESPONDING  statements.  The  ADD  and  SUBTRACT  statements 
with  multiple  resultant  data  items  in  the  GIVING  nhrase 
are  also  tested. 


NC205 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  DATA  DIVISION  clauses  RFDFFInfS 

and  RENAMES  as  **>11  as  level  numbers.  The  DIVIDE  statement 


I 
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is  also  tester). 


N C 204 


X- Numbers:  Rasic  set  plus  56#  57. 

Features  Tested:  This  program  tests  the  DISPLAY  UP0M  and  ACCEPT  UPON 

statements. 

Special  Considerations:  The  tests  for  the  ACCEPT  statements  process  data 

from  the  system  input  device  in  the  following  order: 

Entry  1 : A 9C DF FGHI J * LMN 0P9 R S TO VW X Y Z 
Entry  2:C12345o7&9 
Entry  3:0.+-*/$*  = 

Entry  4:9 
Entry  5:0 

Entry  6 : A 9 C VY7 

Entry  7:single  space 
Entry  8 : * 

Entry  9 : G 
Entry  10:A9CD 
Entry  11:A9CP 

Entry  12:A  EC.DFFGHIJICLA,'  CP 
QRSTUVWXYZ  C 1 2 34  5/  7?  9 
Entry  1 3 : D001 *002*003*004*005*006*007*00? 

*009*010*011*012*013*014*015*015 
*C 17*01 8*01 9*020*021 *C 22*023*024 
*025*026*027*028*029*330*031 *032 
*033*034*035*036*037*038*039*040 
*041 *04 2 *04 3*0 44 *04 5 *046 *047 *C4P 
*049*050 


NC205 


X- tsumbers:  Basic  set  only. 

Features  Tested:  This  program  tests  continuation  of  lines. 


NC2U6 


X- Numbers:  Basic  set  only. 

Features  lested:  This  program  tests  qualification  including  qualified 

subscripts. 


NC207 


X-Numbers  : 


Basic  set  only. 

This  proaram  tests  ADD*  SUBTRACT#  MULTIPLY/  and  DIVIDE 
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Features  Tested: 


I 
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statements  which  contain  qualified  data-names  as  operands. 


m C 2 0 ^ 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  contains  qualified  paragraph-names  and  MOVE 

statements  with  qualified  data-names  as  operands.  The 
MDVF  statement  with  multiple  receiving  areas  is  also 
tested. 

NC2CJ9 


X- hum hers:  Basic  set  only. 

Features  Tested:  This  program  continues  the  tests  of  the  MOVE  CORRESPONDING 

statement  and  the  MOVE  statement  with  multiple  receiving 
areas  which  were  begun  in  NC208. 

N C 2 1 1) 


X-Nunbers:  Basic  set  only. 

Features  Tested:  This  program  tests  nested  IF  statements. 


■i  C 2 1 1 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  IE  statement  with  qualified  data- 

names»  condition-names/  and  with  compound  conditional 
statements.  The  PERFORM  statement  and  the  no  TO  state- 
ment without  a procedure-name  are  tested  in  conjunction 
with  the  ALTER  statement. 


NC212 

X-Numbers:  Easic  set  only. 

Features  Tested:  This  prooram  tests  49  levels  of  group  and  elementary 

defined  items. 


N C 2 1 3 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  format  5 of  the  DIVIDE  state nent  and 

the  ADD*  SUBTRACT*  MULTIPLY*  and  DIVIDE  statements  with 
multiple  resultant  data  items. 


1 A 9 
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NC21  A 


X -Nu mbe  r s : 


Features  Tested: 


NC215 


X -Nu mbe r s : 


F eatu  res  Tested: 


Basic  set  only. 

T N ; s program  tests  the  use  of  a double  quote  in  a literal* 
logical  connectives*  and  the  ACCEPT  FRO*  statement  for 
DATE/  DAY/  and  TIME.  The  PERFORM  VARYING  staterrent  is 
also  tested  in  this  program. 


basic  set  only. 

This  program  tests  the  use  of  a user-defined  collatina 
sequence  in  the  alphabet -name  clause  of  the  SPECIAL-,  a ES 
paragraph.  The  PROGRAM  COLLATING  SEQUENCE  clause  in  the 
OBJECT-COMPUTER  paragraph  references  the  alpha  bet-name 
defined  in  SPECIAL-NAMES. 


N C 2 1 6 


X -Numbe  r s : 


Basic  set  only. 


Features  Tested:  This  program,  tests  the  level  ? INSPFCT  statement  features. 


NC217 


X -Numbers : 


Basic  set  only. 


Features  Tested:  This  program  tests  the  STRING  statement. 


■ C 2 1 8 


X-Numfcers: 


Pas ic  set  only. 


Features  Tested:  This  program  tests  the  UNSTRING  statement. 


NC219 


X -Numbe  r s : 


Features  Tested: 


Basic  set  only. 

This  prooram  tests  the  PROGRAM  COLLATING  SE0UENCP 
clause  and  the  ALPHABE  T-NAMF  clause.  The  program  is 
designed  to  test  the  effect  of  using  the  HIGH-VALUE  and 
LOW-VALUE  figurative  constants  within  the  literals  for  thr 
ALPHABET -NAMF  clause  associated  with  the  PROGRA*  COLLATING 
SEQUENCE  statement. 
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NC431 

X -Nu  mbers : 
Features  Tested: 


The  actual  statements  used  ar»  shown  below: 
PROGRAM  COLLATING  SFGUENCF  IS  COLLATIN’C-SEQ-1  . 
SPFClAL-NfAMES. 

COLLATING-SFG-1  IS  " F " "U"  "N" 

ALSO  HIGH-VALUE 
ALSO  LOW-VALUE 

• • y M 

COLLATING-SEQ-2  IS  "0" 

ALSO  HIGH-VALUE 
ALSO  LOW-VALUE. 


The  program  consists  of  tests  which  compare  the  relative 
ordinal  positions  of  the  characters  as  described  in  the 
ALPHABET -NAME  clauses. 


Basic  set  only. 


The  program  N c 4 3 1 contains  the  level  2 Nucleus  lancuaoe 
features  for  purposes  of  testing  the  FIPS  PUB  21-1  flagging 
requirement.  The  Nucleus  level  2 elements  is  this  program 
are  contained  in  the  High-Intermediate  and  High  levels  of 
Federal  Standard  COBOL. 


One  Identification  Division  statement  should  he  Flagged. 

One  Environment  Division  statement  should  be  flagaeri. 

Twelve  (12)  "areas”  should  be  Flagged  in  the  Data  Division. 


Forty-nine  (4°)  "areas”  should  be  flanged  in  the 
Procedure  Division. 


1 


■ j 


I 


I 


I 
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RLim 

X- Numbers:  Basic  set  olus  21/  69/  74/  75. 

Features  Tested:  This  program  creates  and  verifies  a 500  record  fixed  lenath 

relative  file  whose  access  mode  is  sequential.  the  record 
size  is  120  characters.  Upon  completion  of  this  prograi  the 
relative  file  is  passed  to  R L 1 0 2 for  further  procession. 

RL1C? 


X-Numbers:  Basic  set  plus  21/  69/  74/  75. 

Features  Tested:  This  program  is  used  to  verify  and  update  the  500  record 

fixed  length  relative  file  created  in  PL1P1.  The  access  mare 
for  this  file  in  this  program  is  random.  after  the  file  is 
initially  verified  for  accuracy  of  data  it  is  opened  as  I - 0 
and  every  fifth  record  is  undated.  Following  this  operation 
the  file  is  again  verified  for  correctness.  Upon  completion 
of  the  program  the  file  is  passed  to  RL103  for  further  pro- 
cess i no . 

RL103 


X-Nun.bers:  Easic  set  plus  21  / 69/  74/  75. 

Features  Tested:  This  program  is  used  to  verify  the  500  record  fixed  length 

file  updated  in  RL102.  The  access  mode  for  this  file  in  this 
program  is  sequential.  After  the  file  is  initially  verified 
for  accuracy  of  data  it  is  opened  as  I -0  and  every  fourth 
record  is  deleted.  Following  this  the  file  is  again  verified 
for  correctness.  There  should  be  375  records  remaining  in 
the  tile. 

R Li  04 


X-Nurobers:  Basic  set  plus  22/  69/74/  75. 

Features  Tested:  This  program  creates  and  updates  a 500  record  fixed  lenath 

relative  file  whose  access  mode  is  seauential.  The  record 
size  is  120  characters.  After  the  file  is  created  it  is 
opened  as  1-0  and  every  fifth  record  is  updated.  All  READ/ 
WRITE/  and  REWRITE  statements  are  used  without  the  appropriate 
AT  FND  or  INVALID  ♦'EY  phrases.  A USF  procedure  for  file-name 
is  specified  and  the  contents  of  the  FILE  STATUS  data  item  is 
tested  followino  each  1-0  operation. 

RL105 


X-Numbers:  Basic  set  plus  21/  22/  23/  ^9,  74,  75,  76/  77. 
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Features  Tested: 


st  L 1 C 6 


X-Mjn>bers  : 


Featues  Tested: 


RL107 


X -Numbers : 


Features  Tested 


RL1G: 


X -Num  be  r s : 


Features  Tested: 


Mice 


x-Numbers: 


Features  Tested: 


This  program  creates  and  verifies  three  fixed  lenqth  records 
relative  files  whose  access  mode  is  seouential.  The  three 
files  contain  19/  16/  and  16  records  respectively.  The 
record  size  for  all  files  is  IOC  characters. 


Basic  set  olus  21/  22/  23/  69/  74/  75/  76/  77. 

This  program  creates  and  verifies  three  variable  length 
record  relative  files  whose  access  mode  is  random.  The 
three  files  contain  18/  10/  and  12  records  respectively. 
Record  lenoths  are  56/  100/  or  10?  characters.  The 
RELATIVF  MY  data  item  is  used  to  access  specific  records 
within  each  of  the  three  files  and  to  verify  their  accuracy. 


Basic  set  plus  21/  22/  69/  74/  75/  76. 

This  program  creates  and  verifies  two  fixed  lenath  relative 
files  whose  access  mode  is  random.  One  file  contains  125 
records  and  the  other  file  contains  ?5  records.  The  record 
size  for  both  files  is  120  characters.  The  first  (or  larger) 
file  is  only  partially  created  during  the  OtiTPl'T  mode  nut  is 
subsequently  completed  in  the  I - 0 mode.  The  file  is  not 
created  in  sequential  order  but  the  end  result  is  that  there 
are  no  null  records  in  the  file.  Various  recoros  in  both 
files  are  tested  for  accuracy  white  using  the  RELATIVE  KEY 
data  items  to  access  the  specific  records  to  be  tested.  Tne 
first  file  is  tested  while  opened  for  1-0  and  the  second  file 
is  tested  while  opened  for  INPUT.  A test  is  also  made  to 
read  a record  which  has  yet  to  be  created. 


Basic  set  plus  21  / 69/  74/  75  . 

This  program  creates  and  verifies  a 50 C record  fixed  lenath 
relative  file  whose  access  mode  is  sequential.  The  record 
length  is  240  characters.  Upon  completion  of  the  program 
the  relative  file  is  passed  to  RL109  for  further  processing 


Basic  s°t  plus  01/  21/  51/  53/  6«,  74/  75/  76. 

This  program  is  designed  to  test  the  use  of  the  RERUN  clause 
with  a pronram  which  processes  a relative  file.  This  nronram 
reads  and  verifies  the  500  record  file  created  in  RLlOh.  The 
access  mode  for  this  file  is  sequential.  At  least  one  of  the 
following  forms  of  the  R c R U N clause  must  be  implemented: 

RERUN  ON  imp l ement or-name  EVERY  inteoer  RECORDS  OF  file-nare-2 
RERUN  ON  implementor-name  FVFRY  integer  CLOCK-UNITS 


H 
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RERUN  0*'  i mp l em en t or -name  EVERY  condition-name 
RERUN  ON  f i Le-name-1  tVERY  condition-name 

The  condition  to  cause  the  rerun  information  to  be  recorded 
must  occur  at  least  once  d urine  the  execution  of  this  prenr-r. 

R LI  51 


X-Nuinbers:  Basic  set  plus  21#  69#  74#  75. 

Features  Tested:  This  proqram  creates  and  verifies  a 500  record  fixed  lemtl 

relative  file  whose  access  mode  is  sequential.  The  record 
length  is  120  characters.  The  OPEN#  CLOSE#  READ#  and  U R I T ‘ 
statements  are  tested  accordina  to  the  HYP0-C0P0L  specifica- 
tions. Upon  completion  of  this  program  the  relative  file 
is  passed  to  RL151  for  further  processing. 

RL152 


X-Numbers:  Basic  set  plus  21#  69#  74#  75. 

Features  Tested:  This  program  is  used  to  verify  and  update  the  500  record  fixed 

length  relative  file  created  in  PL151.  The  access  mode  for 
this  file  in  this  program  is  random.  After  the  file  is 
initially  verified  for  accuracy  of  data  it  is  opened  as  I -0 
and  every  fifth  record  is  updated.  Following  this  operation 
the  file  is  aoain  verified  for  correctness.  The  0PcN#  CLOSE# 
READ#  and  REWRITE  statements  are  tested  according  to  the 
HYPO -COBOL  specifications.  Upon  completion  of  this  program 
the  relative  file  is  passed  to  RL153  for  further  processino. 

R L 1 5 3 


X-huflibers:  Basic  set  plus  21#  69#  74#  75. 

Features  Tested:  This  program  is  used  to  verify  the  500  record  fixed  length 

file  updated  in  RL152.  The  access  mode  for  this  file  in  this 
program  is  sequential.  After  the  file  is  initially  verified 
for  accuracy  of  data  it  is  opened  as  I - 0 and  every  fourth 
record  is  deleted.  Following  this  operation  the  file  is  aoain 
verified  for  correctness.  T h e r » should  be  7 7 5 records 
remaining  in  the  file.  The  OPE  N#  CLOSE#  R E » D # and  DELCTE 
statements  are  tested  according  to  the  HYPC-C0E-0L  specif  ica- 
t ions  . 

RL201 


X-Numbers:  Basic  set  plus  21#  69#  74#  75. 

Features  Tested:  This  program,  creates  and  verifies  a 50U  record  fixed  lenott 

relative  file  whose  access  mode  is  sequential.  The  record 
size  is  120  characters.  Upon  completion  of  this  program  the 
relative  file  is  passed  to  R1.2P2  for  further  precession. 
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RL202 


X-Numbers : Pasic  set  plus  21#  69#  74#  75. 

Features  Tested:  This  program  is  used  to  verify  and  update  the  500  record 

fixed  length  relative  file  created  in  KL201.  The  access 
mode  for  this  file  in  this  program  is  dynamic.  After  the 
file  is  initially  verified  for  accuracy  cf  data  it  is  opened 
as  1-0  and  every  fifth  record  is  updated.  Following  this 
operation  the  file  is  again  verified  for  correctness.  The 
RFLATIVE  KEY  data  item  is  used  to  access  the  next  record  to  be 
read  or  updated.  The  verification  of  the  initial  input  file 
is  performed  in  ascending  sequence  and  the  verification  of  the 
updated  file  is  performed  in  descending  seouence.  Upon 
completion  of  this  program  the  updated  relative  file  is 
passed  to  RL203  for  further  processing. 

RL2C3 


X-Numfcers:  Basic  set  plus  21#  69#  74#  75. 

Features  Tested:  This  program  is  used  to  verify  the  500  record  fixed  lenoth 

relative  file  updated  in  RL202.  The  access  mode  for  this 
file  in  this  program  is  dynamic.  After  the  file  is  initially 
verified  for  accuracy  of  data  it  is  opened  as  1-0  and  every 
fourth  record  is  deleted.  Following  this  operation  the  file 
is  again  verified  for  correctness.  There  should  be  375 
records  remaining  in  the  file.  All  read  operations  are  per- 
formed using  the  RFAD  K’FXT  R F C 0 R D statement. 

R 1 204 


X-Numbers:  Basic  set  plus  22#  69#  74#  76. 

Features  Tested:  This  program  creates  and  updates  a 5P0  record  fixed  length 

relative  file  whose  access  mode  is  dynamic.  The  record  size 
is  120  characters.  After  the  file  is  created  it  is  opened 
as  1-0  and  every  fifth  record  is  updated.  All  READ#  I T E # 

and  REWRITE  statements  are  used  without  the  aoprooriate  AT 
END  or  INVALID  KFY  phrases.  a USE  orocedure  for  file-name 
is  specified  and  the  contents  of  the  FILF  STATUS  data  item 
is  tested  following  each  1-0  operation. 

RL2C5 


X-Numbers:  Pasic  s°t  plus  21#  22#  69#  74#  75#  75. 

Features  Tested:  This  program  creates  and  verifies  two  3PD  record  fixed  lenotR 

relative  files.  One  file  is  created  with  access  mode  is 
dynamic  and  the  other  with  access  mode  is  sequential.  The 
record  length  for  both  files  is  240  characters.  This  prooram 
is  designed  to  test  the  use  of  the  READ  and  ST  a pt  statements. 
Various  syntactical  constructs  of  the  RFAD  statement  are  useo 
to  sequentially  and  randomly  verify  specific  records  on  the 
dynamic  accessed  file.  Also  both  files  are  processed 
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sequentially  usina  various  syntactical  constructs  of  the 
START  statement  to  loqically  position  within  the  file. 


PL421 


X-Numbers:  Basic  set  plus  14 / 21  / 22/  23/  53/  69/  74/  75/  76/  77/  7b . 

Features  Tested:  The  proaram  RL421  contains  the  level  1 Relative  I-Q  language 

features  for  purposes  of  testing  the  FIPS  PUB  21-1  flagging 
requirement.  The  Relative  1-0  level  1 elements  in  this 
proaram  are  contained  in  the  Low-Intermediate  level  of 
Federal  Standard  COBOL.  All  Relative  1-0  level  1 lanouaoe 
features  are  tested  in  this  program. 

R L43  1 


X-Numbers:  Basic  set  plus  21/  22/  69/  74/  75/  §6. 

Features  Tested:  The  program  RL  431  contains  th°  level  2 Relative  I -0  language 

features  for  purposes  of  testina  the  FIPS  PUB  21-1  flaqoino 
requirement.  The  Relative  I - 0 level  2 elements  in  this 
proaram  were  contained  in  the  Hinh-lntermediate  and  Hi  ah 
levels  of  Federal  Standard  COB^L.  All  Relative  I - 0 level  ? 
lanouage  features  are  tested  in  this  program.  In  addition/ 
if  this  program  is  compiled  specifyina  the  Low  level  of 
Federal  Standard  COBOL/  then  all  Relative  T-0  level  1 elements 
in  this  program  will  be  flagged. 
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D.H  kEPORT  WRITER  MODULE 


RW101 


X-Numbers:  Basic  set  plus  49. 

Features  Tested:  The  routine  RW101  tests  basic  Report  Writer  rrodule  functions. 

The  report  description  in  this  routine  contains  a PAGE  LI’IT 
IS  20  LINES  without  the  optional  HEADING,  FIRST  DETAIL,  LAST 
DETAIL  nr  FC0TI*'r  phrases.  A sinole  Detail  Report  Group  is 
defined  for  the  report.  An  output  report  in  the  usual  audit 
routine  format  is  produced  using  WRITE  statements,  and  a one 
page  report  of  20  lines  is  produced  by  the  PWCS.  The 
sequential  file  R W - F S 1 is  the  report  file  and  is  assigned 
to  the  RWCS  output  device  throuoh  x-numher  49. 


R W 1 0 2 


X -numbers:  Basic  set  plus  49. 

Features  Tested:  The  routine  RW102  tests  basic  Report  Writer  module  functions. 

The  report  description  in  this  routine  contains  Pagf  L I A I T 20, 
FIRST  DETAIL  1,  LAST  DETAIL  25  without  the  optional  HEADING  cr 
FOOTING  phrases.  A single  Detail  Report  Group  is  defined  1 or 
the  report.  An  output  report  in  the  usual  audit  routine  for- 
mat is  produced  using  WRITE  statements,  and  a one  Dane  renort 
of  20  lines  is  produced  by  the  RWCS.  The  sequential  file 
RW-FS2  is  the  report  file  and  is  assigned  to  the  RWCS  output 
device  through  x-number  49. 


RW103 


X -Numbers:  Basic  set  plus  49. 

Features  Tested: 


R V 1 0 4 


X -Numbe  r s : 
Features  Tested: 


routine 


. . . - — — lesib  oasic  (pporp  _ * , » . 

The  report  description  in  this  routine  contains  PAGE  30, 
HEADING  1,  FIRST  DETATL  6,  LAST  DETAIL  25  without  the  optional 
FOOTING  phrase.  a Page  Heading  Renort  Group  and  a Detail 
Report  Group  are  defined  for  the  report.  An  output  report 
in  the  usual  audit  routine  format  is  produced  us  i no  WRITE 
statements,  and  a three  page  report  of  1 paoe  headina  line 
and  twenty  detail  lines  on  each  page  is  produced  by  the  RWCS. 
The  sequential  file  PW-FS3  is  the  report  file  and  is  assigned 
to  the  RWCS  output  device  throuoh  X-number  49. 


Basic  set  plus  49. 

The  routine  R W 1 0 4 tests  basic  Report  Writer  module  functions 
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The  report  description  in  this  routine  contains  P A 6 F LIMITS 
ARE  30  LINFS/  HEADING  1,  FIRST  DETAIL  6*  LAST  DETAIL  21/ 
FOOTING  29.  A Paae  Headina*  Pare  Footing  and  one  Detail 
Report  Group  are  defined  for  the  report.  An  output  rerort 
in  the  usual  audit  routine  format  is  produced  using  wRITF 
statements*  and  a three  paae  report  with  1 page  heading  line* 
1 page  footing  line  and  twenty  detail  lines  on  each  pane  is 
produced  by  the  RWCS.  The  sequential  tile  RW-FS4  is  the 
report  file  and  is  assigned  to  the  RwCS  output  device 
through  X-number  49. 


15* 
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D .9  SEGf  ENTATION  f'ODULF 


S G 1 0 1 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  p ronram  exercises  transfer  of  control  via  the  PERFORM 

statement  to  various  fixed  permanent  segments  and  independent 
segments  from  fixed  permanent  segments.  Control  is  also 
passed  from  independent  segments  to  fixed  permanent  segments. 
There  are  50  fixed  permanent  seoments  and  50  independent 
segments.  There  is  no  attempt  to  test  either  the  last  used 
or  the  initial  state  in  this  program. 


S G 1 C 2 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  exercises  various  A L TP  R and  rrRFORf'  statements 

and  prepares  a directory  in  each  test  to  trace  program  flow. 
Transfers  of  control  are  from  fixed  permanent  segments  to 
fixed  permanent  segments/  fixed  permanent  segments  to  indep- 
endent segments/  independent  segments  to  fixed  permanent 
segments/  and  independent  segments  to  independent  seoments. 
There  are  no  tests  for  the  initial  state  per  se/  but  there 
are  tests  to  ensure  that  the  last  used  state  is  present  when 
required. 


SG103 


X-Numbers:  basic  SPt  on*  y. 

Features  Tested:  This  program  uses  the  ALTER/  PERFORM  and  GO  TO  statements  to 

check  initial  and  last  used  sequent  states.  Transfers  of 
control  are  from  fixed  permanent  segments  to  fixed  permanent 
segments/  fixed  permanent  segments  to  independent  segments/ 
independent  seoments  to  fixed  permanent  segments/  and  inde- 
pendent segments  to  independent  seoments.  The  form  of  passim 
control  is  through  the  use  of  PERFORM  and  GO  TO  statements 
andfall-throur. h logic. 


SG104 


X- Numbers:  Basic  set  plus  27. 

Features  Tested:  This  oroaram  tests  the  compiler's  ability  to  segment  a program 

using  a SORT  statement  which  requires  both  an  INPUT  PRGCtDUPr 
and  an  OUTPUT  PROCEDURE.  The  sections  containing  the  SORT 
statement/  the  INPUT  PROCEDURE  and  the  OUTPUT  F kOCEDURF  are 
all  in  the  same  independent  spcment.  The  results  for  this 
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program  are  identical  to  the  unspgmented  ST108. 


SC105 


X -N umbers:  Basic  set  plus  27  - 

i 

« 

Features  Tested:  This  program  tests  the  compiler's  ability  to  seoment  a program 

SORT  statement  which  recuires  both  an  INPUT  PROCEDURE  and  an 
OUTPUT  PROCEDURE.  The  section  containing  the  SORT  statement 
is  in  an  independent  segment  white  the  INPUT  and  OUTPUT 
PROCEDURES  ere  located  in  fixed  permanent  segments.  The 
results  are  identical  to  thos®  expected  for  the  unsegmented 
SHOP. 


SOI  06 


X-, Numbers:  Basic  set  plus  Z 7. 

Features  Tested:  This  program  tests  the  compiler's  ability  to  segment  using  a 

SORT  statement  which  reouires  both  an  INPUT  PROCEDURE  and  an 
OUTPUT  PROCEDURE.  The  section  containing  the  SCRT  statement 
is  in  a fixed  permanent  seoment  while  the  INPUT  and  OUTPUT 
PROCEDURES  are  located  in  different  independent  segments.  The 
results  are  identical  to  those  exrected  for  ST  1 08  . 


SS2C1 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  initial  state  of  independent  segments 

and  the  last  used  state  of  fixed  overlayable  seoments.  A 
SEGdENT-LlfMT  of  30  is  specified  in  the  OP J F C T -CO «PUT E R 
paragraph  thereby  causing  segments  from  30  to  49  to  become 
fixed  overlayable  segments.  The  first  section  encountered 
in  the  PROCEDURE  DIVISION  is  an  independent  seoment.  There 
are  100  segments  present  in  this  program. 

SG202 


X-Numbers:  Basic  set  only. 


Features  Tested:  This  program  contains  tests  desinned  to  alter  fixed  overlay- 

able  segments  that  have  not  yet  been  called  for  execution*  to 
test  code  which,  falls  through  to  independent  seoments*  and  to 
PERFORM  fixed  overlayable  segments.  Due  to  a S FGH EN T -L I w I T 
of  25*  seoments  25  through  49  are  considered  fixed  overlayable 
segments.  This  program  contains  no  independent  segments. 
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SS2C3 


X- .Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  initial  state  for  independent  segments 

and  the  last  used  state  for  fixed  overlayable  segments.  The 
PERFORM  and  CO  TO  statements  and  the  code  which  falls  through 
to  an  independent  secment  are  used  to  determine  whether  the 
initial  state  or  last  used  state  is  found  in  each  segment. 

S3204 


X-Numbers:  Basic  set  plus  01/  14,  15,  27,  28,  29,  6R,  74,  7*>,  76,  77. 

Features  Tested:  This  program  tests  the  compiler's  ability  to  segment  a pro- 
gram using  three  SORT  statements  consisting  of  a variety  of 
INPUT  and  OUTPUT  PROCEDURES  as  well  as  the  USINC  and  GIVING 
phrases.  The  SORT  statements  and  all  related  INPUT  and  OUTPUT 
PROCEDURES  are  located  in  fixed  permanent  segments,  fixed 
overlayable  segments,  and  independent  segments.  The  results 
are  identical  to  those  expected  for  the  u n segmented  S T 2 3 1 . 

SG421 


X-Numbers:  Basic  set  only. 

Features  Tested:  The  proaram  SG421  contains  the  level  1 Segmentation  language 

features  for  purposes  of  testing  the  TIPS  PIB  21-1  flagoino 
requirements.  The  Segmentation  level  1 elements  in  this 
program  are  containea  in  Low-Intermediate  and  High-Intermed- 
iate levels  of  the  Federal  Standard  COBOL.  The  Procedure 
Division  statement  to  be  flagged  is: 

seqment-nam.e  SECTION  seament-numher 

SG441 


X- Number:  Basic  set  only. 

Features  Tested:  The  program  SG441  contains  the  level  2 Segmentation  lannuanr 

features  for  purposes  of  testim  t*-e  FIPS  PUB  21-1  flagging 
requirements.  The  Segmentation  level  2 elements  in  this 
program  are  contained  in  the  High  level  of  the  Federal 
Standard  COBOL.  The  Fnvironment  Division  element  to  be 
flagged  is: 

SEGMENT-LIMIT  IS  segment-number 
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D.IO  SEQUENTIAL  I -0  MODULE 


s u 1 0 1 


X-Number s 


SC102 


X -Number  s 


This  procram  creates  and  verities  a magnetic  tape  file  con 
taining  7 50  fixed  lenoth  records  of  120  characters.  The 
OPEN/'  CLOSE/  READ/  and  WRITE  statements  are  tester)  for 
Level  1 features. 


F eatures  Tested 


S Q 1 0 5 


X- Numbers 


Features  Tested 


Shi  04 


X -Nu  mbe  r s 


This  program  creates  and  verifies  mass  storage  file  con- 
taining 649  fixed  length  records  of  120  characters.  The 
OPEN/  CLOSE/  READ/  and  WRITE  statements  are  tested  for 
level  1 features. 


Features  Tested 


S 0 1 0 5 


X-Number s 


Features  Tested 


SG106 

X - N u rn  t e r s 

Features 
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END  phrase  is  not  included  in  any  READ  statement. 


: Basic  set  plus  01/  69/  74/  75. 

Tested:  This  proaram  creates  and  verifies  a magnetic  ta^e  file  con- 

taining 450  variable  length  records  of  120  or  151  characters 
The  OPEN/  C L0  SF / READ/  and  URITt  statements  are  tested  for 
level  1 features. 


S 3 1 0 7 


X-Nurr. bers:  Basic  set  plus  14/  6°/  74/  75. 

Features  Tested:  This  program  creates  and  verifies  a mass  storano  file  con- 
taining 450  variable  length  records  of  120  or  151  characters. 
The  OPEN/  CLOSE/  READ/  and  UKITE  state ments  are  tested  for 
level  1 features. 


SOI  08 


X- Numbers:  Basic  set  plus  14/  *9/  74/  75. 

Features  Tested:  This  program  creates  and  verifies  a mass  storaoe  file  con- 
taining 710  fixed  length  records  of  141  characters.  The 
various  forms  of  the  READ  INTO  statement  are  tested  in 
this  program. 


Basic  set  plus  06/  69/  74/  75. 

Features  Tested:  This  program  creates  and  verifies  multi-reel  magentic  tape 

file  containing  750  fixed  length  records  of  12  0 characters. 

The  CLOSE  REEL  option  is  used  to  create  a two  r«=el  file. 

There  are  3 25  records  on  the  first  reel  and  425  records 
on  the  second  reel. 

Special  Considerations: 

(1)  A two  reel  magnetic  tape  tile  is  required  if  allowed  by 
the  operating  system. 

(2)  The  H-option  is  used  to  include  all  CLOSE  KFEL  statements 
in  the  source  program  when  a multi-reel  file  is  specified. 

(3)  The  I-option  is  used  to  delete  all  CLOSE  REEL  statements 
from  the  source  proaram  when  a multi-reel  file  is  not 
specified. 


SU1U9 


X-Numbers  : 
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X -Nu  robe r s : 


Basic  set  plus  IV*  69/ 


Features  Tested: 


This  proq ram  creates  and  verifies  a multi-unit  mass  storage 
file  containing  649  fixed  length  records  of  120  characters. 
The  CLOSE  UNIT  option  is  used  to  create  a two  unit  file. 
There  are  196  records  on  the  first  unit  and  453  records 
on  the  second  unit. 


Special  Considerations: 


(1)  A two  unit  mass  storage  file  is  required  if  allowed  by  the 
operating  system. 

(2)  The  E -option  is  used  to  include  all  CLOSE  UNIT  statements 
in  the  source  program  when  a multi-unit  file  is  specified. 

(3)  The  E-option  is  used  to  delete  all  CLOSE  UNIT  state  merits 
from  the  source  program  when  a multi-unit  file  is  not 
specified. 


S S 1 1 1 


X -Number  s : 


Features  Tested: 


Bisic  set  plus  01/  69/  74/  75. 

This  program  creates  and  verifies  a magnetic  tape  file  which 
includes  a CODE-SET  clause  in  the  File  Description  entry.  The 
file  contains  595  fixed  lenqth  records  of  155  characters  per 
record.  The  following  COBeL  features  are  included  in  this 
program : 

SPECI  AL-NAvjeS. 

a lohabet -name  IS  STANDAPD-1  . 

CODE-SET  IS  alphabet-name 
Record  desciption  for  the  file  contains 
SIGN  IS  LEADING  SEPARATE  CHARACTER 


S u 1 1 2 


X-Numbers : 


Basic  set  plus 


F eatures  Tested: 


This  program  creates  and  verifies  a multi-unit  mass  storage 
file  containing  500  fixed  length  records  of  120  characters. 
The  first  unit  contains  200  records  and  the  second  unit 
contains  300  records.  The  two  unit  file  is  passed  to  SQ113 
for  further  processing. 


Special  Considerations: 


A two  unit  mass  storage  file  is  required  if  allowed  ty  the 
operatina  system. 

The  E-option  is  used  to  include  all  CLOSE  DM T statements 
in  the  source  program  when  a multi-unit  file  is  specified. 
The  E-option  is  used  to  delete  all  CLOSE  UNIT  statements 
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P 


S(.11. 3 


from  the  source  proqram  when  a multi-unit  file  is  not 
specified. 

( 4 ) The  output  file  generated  by  S G 1 1 2 is  r a s s e d to  S Q 1 1 3 for 
further  processina. 


X-Numbers:  Basic  set  plus  01*  19*  51*  53*  69*  74*  75*  76. 


Features  Tested:  The  prooram  SG113  tests  the  RERUN  clause.  The  two  unit  mass 

storage  file  created  in  SQ112  is  verified  by  this  program. 

The  followino  TOBOL  features  are  included  in  thf  program: 

SPECIAL -NAh'iFS. 

imple mentor-name  IS  mnemonic-name 
ON  STATUS  IS  condition-name-1 
OFF  STATUS  IS  condition -name-2. 

I-O-CONTROL  . 

RERUN  ...  (use  any  of  the  7 optional  formats  on  v-card  53) 


S 0 1 1 4 


X-Numbers:  Basic  set  plus  01*  14*  6°*  74,  75. 

Features  Tested:  This  program  creates  and  verifies  a fixed  length  magnetic  tapp 

file  and  a fixed  length  mass  storaoe  file.  The  magnetic 
tape  file  contains  750  fixed  length  records  of  12u  characters. 
The  mass  storaoe  file  contained  649  fixed  length  records  of 
120  characters.  The  SA  mE  AREA  clause  is  specified  for  the 
two  files. 


Soil  5 


X-Numbers:  Basic  set  plus  14*  69*  74*  75. 

Features  Tested:  This  program  creates  and  verifies  a mass  storage  file  con 

taining  550  fixed  length  records  of  126  characters.  The 
file  is  then  opened  as  an  input-output  file  and  every 
tenth  record  is  rewritten.  The  updated  file  is  verified 
to  ensure  the  REwRITF  statements  executed  correctly. 


S u 1 1 6 


X -humbe r s : Basic  set  plus  14*  69*  74*  75. 

Features  Tested:  This  program  creates  and  verifies  a mass  storaoe  file  con- 
taining 550  fixed  length  records  of  130  characters.  The  file 
is  then  opened  as  an  input-output  file  and  records  are  updated 
using  REWRITE  FROM  statements.  The  updated  file  is  verified 
to  ensure  the  RFWRITF  FROM  statements  executed  correctly. 
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S011  7 


X-Nuobers:  Basic  set  plus  14*  69*  74*  75. 

Features  Tested:  This  routine  creates  a mass  storaae  file  usina  WRITE  F r 0V 

statements.  The  file  contains  495  fixed  lenotf  records  of 
141  characters.  The  file  is  opened  as  in  the  input  mode 
and  records  are  checked  to  ensure  the  LRITF  FRC>  statements 
executed  correctly. 

| 

SU118 

X-, Numbers:  Basic  set  plus  01*  54*  6^*  74*  75*  76. 

Features  Tested:  This  prcoram  is  designed  to  test  the  transportability  of 

ASCII  data  and  signed  numeric  data  between  computer  systems. 
A magnetic  tape  tile  ccnta  ininn  fifty  120  character  records 
and  a punched  card  file  containino  fifty  80-column  cards 
are  created.  Fach  tape  and  card  record  contains  a signed 
numeric  data  item  with  leading  sign  in  character  positions 
1 2 throuoh  ?7  and  a sinned  numeric  data  item  with  trailing 
sign  in  character  positions  41  throuoh  57.  The  ASCII  char- 
acter set  is  generated  in  collating  seouence  order*  one 
character  type  per  record*  in  character  positions  115 
through  1 20  for  tare  and  columns  7r  through  80  for  cards. 

The  program  includes  the  followino  COBOL  features: 

SPECIAL -N'A^FS. 

alphabet-name  IS  STANDARD-1 . 

CODF-SFT  IS  a l p h ab e t -n a me 
CODE-SET  a l o h abe t -na me 

SION  IS  LEADING  SEPARATE  CHARACTER  (in  record  description) 
SIGN  IS  TRAILING  SFPARATF  CHARACTER  (in  record  description) 
COBOL  character  set  (except  for  quote) 

Special  Considerations: 

Upon  completion  of  the  validation  the  output  tape  and 
card  files  are  to  be  returned  to  FCCTS  for  processing  and 
verfication  on  a foreign  computer  system. 

SO1 1 9 


X -Numbers  : 


Basic  set  plus  01*  58*  69*  74*  75*  76. 


Features  Tested:  This  program  is  desioned  to  test  the  transportability  of 

ASCII  data  and  sinned  numeric  data  between  comruter  systems. 
SG 1 1 ° reads  and  validates  a maonetic  tape  file  and  a punched 
card  file  created  by  FCCTS  on  a foreion  computer  system.  The 
tape  file  contains  fifty  1 2C-c h ar a c t e r records  end  the  card 
file  contains  fifty  80-column  cards.  Each  tape  and  card 
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record  contains  a signed  numeric  data  item  with  leading  sign 
in  character  positions  12  through  27  and  a sinned  numeric 
data  item  in  character  positions  41  through  57.  Th?  ASCII 
character  set  is  contained  in  collating  sequence  orders  one 
character  type  per  record/  in  character  positions  115  thru 
120  for  tape  and  columns  75  thru  80  for  cards.  The  collating 
sequence  specified  in  this  program  is  NATIVE.  Ip on  comple- 
tion of  this  program  all  files  are  passed  to  SQ120  for 
further  processing.  The  program  includes  the  following 
COBOL  features: 

PROGRAM  COLLATING  SFQUENCE  IS  NATIVE. 

SPFCI AL-NAME  S. 

a Iph abe t -na me  IS  STANDARD-1 
alphabet-name  IS  NATIVE 
CODE-SET  a l phabet -name 
CODE-SET  IS  a Irhabet -name 

SIGN  IS  LEADING  SEPARATE  CHARACTER  (in  record  description) 
SION  IS  TRAILING  SEPARATE  CHARACTER  (in  record  aescriotion) 
COBOL  character  set  (except  for  ouote) 


Basic  set  plus  01/  55/  64/  74/  75/  76. 

Features  Tested:  This  program  is  designed  to  test  the  transportability  of 

ASCII  data  between  computer  systems.  The  signed  numeric 
data  tested  in  S0119  is  ioncred  during  the  execution  o4  this 
run.  SG120  reads  and  validates  a magnetic  tape  tile  and  a 
punched  card  file  created  by  FCCTS  on  a foreign  computer 
system.  The  tape  file  contains  fifty  120-character  records 
and  the  card  file  contains  fifty  PC-column  cards.  Each  tape 
record  contains  the  ASCII  character  set  in  collating  seauencr 
order/  one  character  type  per  record/  in  character  positions 
115  through  120.  For  the  card  file  the  ASCII  data  is  con- 
tained in  card  columns  75  through  80.  The  collating  sequence 
specified  for  this  program  is  ASCII.  The  program  includes 
the  following  COBOL  features: 

PROGRAM  COLLATING  SEQUENCE  a IpP abet -name 
SPECIAL-NAMES. 

a Ip  ha  be t -name  IS  STANDARD-1 
CODE-SET  alphabet-name 
CODE-SET  IS  a l ph abe t -n ame 
COBOL  character  set  (except  for  quote) 


S 4 1 2 1 


X- Numbers:  Basic  set  plus  14/  69/  74/  75. 


S u 1 2 0 


X- Numbers: 


Features  Tested:  This  program  tests  the  USF  AFTER  STANDAPD  FRROF  PROCEDURE 


1.  * w 


S c;  1 5 1 


X-Numbers: 


Features  Tested 


SU152 


X -Number  s : 


Features  Tested: 
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ON  1-0  statement.  A mass  storage  file  containing  553  fixed 
length  records  of  126  characters  is  created  and  verified. 
The  file  is  then  opened  in  the  input-output  mode  and  every 
tenth  record  is  rewritten.  The  updated  file  is  then 
verified. 


Basic  set  only. 

All  syntactical  combinations  of  the  HYPO-COBOL  i«kIT£  state- 
ment tor  a printer  output  file  are  tested  in  this  prooram. 
Tests  of  the  line  overprint  capability  and  tests  which 
assure  that  column  1 does  not  act  as  a carriaae  control  field 
are  also  included. 


Basic  set  plus  Cl#  69#  74#  75. 

This  program  creates  and  verifies  a magnetic  tape  file  con- 
taining 75D  fixed  length  records  of  120  characters.  The 
CPFN#  CLOSE#  RFAD#  and  WRITF  statements  are  tested 
accordinq  to  the  HYPO-COBOL  specifications. 


S 9 1 5 3 


X - Numbe  r s : 


Features  Tested: 


S 520 1 


X-Number  s : 


Features  Tested: 


SC202 


X -Nu  mbe  r s : 


Features  Tested: 


Basic  set  plus  14#  69#  74#  75. 

This  program  creates  and  verifies  a mass  storage  file  con- 
taining 649  fixed  length  records  of  120  characters.  The 
OPEN#  CLOSE#  RFAD/  and  WRITE  statements  are  tested  accordino 
to  the  HYPO-COBOL  specifications. 


Basic  set  only. 

Alt  syntactical  combinations  of  the  level  ? WRITF  statement 
using  the  FPOF  and  ADVANCING  phrases  with  identifier-2  are 
tested  in  this  program. 


Basic  set  only. 

This  prooram  tests  the  level  .?  WRITE  statement  and  the  File 
Description  for  the  printer  file  contains  the  following 
LINAGF  clause: 
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LINAGE  IS  50  LINES 

UI  TH  FOOTING  AT  5 
LINFS  AT  TOP  10 
LINES  AT  BOTTOM  6 

This  program  also  tests: 

LINAGE-COUNTER  values  after  the  execution  of 
OPEN  OUTPUT 

WRITE AFTER  ADVANCING  PA6F 

paqe  overt  low 
WRITE 

WRITE  ...  integer  LINE 

WR I T E . . . i dent i f i e r -2  LINES 

WRITE. . .end-of-paoe  comhin  ’tions 


SG203 

X - N umbers: 
Features  Tested: 


Basic  set  plus  01/  69 , 74/  75. 

This  program  creates  and  verifies  a magnetic  tare  containing 
750  fixed  length  records  of  120  characters.  The  magnetic 
tape  file  generated  by  SQ203  is  passed  to  SQ204  for  further 
processing. 


S G 204 

X -Number  s : 

F eat  u res  Tested: 


S S 205 

X-Number s : 
Features  Tested: 


Basic  set  plus  01/  03/  17/  IP/  69/  74/  75/  76/  77/  78. 

This  program  tests  the  use  of  the  OPTIONAL  clause  and  the 
RESERVE  integer  AREA  clause  in  the  SFLFCT  statement.  The 
optional  files  SQ-FS2  and  SG-FS4  are  not  present  during 
execution.  The  following  COBOL  constructs  are  included: 

SELECT  OPTIONAL 

RESERVE .. .ARE  AS 
RESERVE AREA 

USE  AFTER  STANDARD  EXCEPTION  PFOCEDURE  ^N  INPUT 

READ ; AT  F NO 

READ  . . . 


Basic  set  plus  Cl/  14/  69/  74/  75. 


This  program  tests 
magnetic  tape  file 


the  OPEN  FXTEND  statement  for  both  a 
and  a mass  storage  file.  A magnetic 
tape  file  is  created  which  contains  750  fixed  length 
records  of  126  characters.  The  file  is  then  extended  by 
250  records  and  the  extended  file  is  verified.  The  same 
test  is  repeated  for  a mass  storage  file. 
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SG206 


X-Nurnbers:  Basic  set  plus  01/  69/  74/  75. 

Features  Tested:  This  program  tests  the  RFVERSED  and  NO  REWIND  phrases  in  the 

OPEN  statement/  and  the  N^1  REWIND  phrase  in  the  CLOSE  state- 
ment. A magnetic  tape  file  is  created  which  contains  750 
fixed  length  records  of  120  characters. 


Special  Considerations: 

(1)  The  L-option  is  used  to  include  all  OPEN .. .RE  VERSE D 
statements  in  the  source  program. 

(2)  The  P-ootion  is  used  to  delete  alt  open  ...REVERSED 
statements  from  the  source  program. 

SG2C7 

X-Numbers:  Easic  set  plus  0£  / 09/  69/  71  /,  72/  74/  75/  76/  77/  78/  79/  .0. 

Features  Tested:  This  program  tests  the  MULTIPLE  FILF  TAPE  clause  in  the  I-C 

CONTROL  paragraph  and  the  NO  REWIND  phrase  in  the  OPEN  ann 
CLOSE  statements.  Two  magnetic  tapes/  each  containing  four 
files/  are  created  and  passed  to  the  programs  SG208  and 
SQ209.  Files  placed  on  the  magnetic  tape  specified  by  V-0 
are  passed  to  both  SQ20S  and  SG209/  whereas/  files  on  v-U9  are 
passed  to  SO209  only. 


SG2C8 

X-Numbers:  Basic  set  plus  OP/  09/  69/  71/  72/  74/  75/  76. 

Features  Tested:  This  program  verifies  four  of  the  eight  magnetic  tapp  files 

created  in  SQ2U7  using  the  MULTIPLE  FILE  clause.  The  files 
are  verified  in  an  order  which  differs  from  the  order  in 
which  they  were  created.  The  magnetic  tape  files  are  tassed 
to  SO  20?  for  furthe-  processing. 


Sw209 

X -Number s : 
Features  Tested: 


S 0 2 1 0 

x -mj  mber  s : 


Basic  set  plus  08/  09/  69/  74/  75/  77/  78/  79/  E(). 

This  program  verifies  five  of  the  eiaht  magnetic  tape  files 
created  in  SG2C7  usinq  the  MULTIPLE  FILE  clause.  The  files 
are  verified  in  an  order  which  differs  from*  the  order  in 
which  they  were  created. 


Basic  set  plus  01/  14/  69/  74/  75/  76. 
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_* i 


Features  Tested: 


SG211 


X -Numbe  r s : 


Features  Tested: 


SQ212 


X- Numbers: 


Features  Tested 


S 02 1 3 


X -Number  s : 


Features  Tested: 


CCVS74  VERSION  3 * RELEASE  C 77/10/13 


This  program  tests  the  USE  statement  with  file -name  series/ 
and  the  FILE  STATUS  clause  in  the  SFLECT  clause.  A READ 
statement  without  the  AT  END  phrase  is  used  to  cause  the 
USE  procedure  to  be  executed  when  an  end-of-file  is 
encountered.  A magnetic  tape  file  is  created  containing 
500  fixed  length  records  of  120  characters/  and  a mass 
storage  file  is  created  containing  500  fixed  length  records 
of  120  characters. 


Basic  set  plus  01/  02/  14/  15/  69/  74/  75/  76/  77/  7h . 

This  program  tests  the  SA^E  AREA  and  SAME  RECORD  AREA  clauses 
in  the  I-O-CON'TROL  paragraph.  Two  magnetic  tape  files  and 
two  mass  storage  fils  are  created  and  verified. 


Basic  set  plus  73. 

This  program  tests  all  syntactical  combinations  of  the  level 
2 WRITE  statement  containing  the  FROM  phrase  and  ADVANCING 
mnemoni c- name  phrase. 


SG21  4 


X - Nu m ber  s : 


Features  Tested: 


Basic  set  only. 

This  program  tests  the  level  2 WRITE  statement  and  the  Fil° 
Description  for  a printer  file  containing  the  following  LINAGE 
clause: 

LINAGE  data-name 

FOOTING  data-name 
TOP  data-name 
BCTTO"  data-name 

The  contents  of  the  data-names  are  changed  in  order  to  check 
the  redefinition  of  logical  page  formats  after  pane  over- 
flow or  WRITE  ADVANCING  PAGE  operations. 


Basic  set  only. 

This  program  tests  the  level  2 WRITF  statement  and  the  File 
Description  for  a printer  file  containing  the  following  LINAGE 
clause: 


i 


*_■ * . l.  ■ y 


•) 

CCVS74  VERSION  3 * RELEASE  0 77/10/13 


LINAGE  40 
TOP  ? 


SG215 


Basic  set  only. 

This  program  tests  the  level  2 wkITF  statement  and  the  File 
Description  for  a printer  file  containing  the  following  LINAGE 
clause: 

LINAGE  IS  data- name  LINES 
TOP  2 

The  contents  of  data -name  are  chamed  during  execution  in 
order  to  verify  the  redefinition  of  logical  pane  formats. 

SQ216 


X-Numbers:  Basic  set  plus  01*  69*  74*  75. 

Features  Tested:  This  program  tests  the  CLOSE  statement  with  the  WITH  LOCh 

phrase.  A magnetic  tape  file  is  created  containing  750 
fixed  length  records  of  120  characters.  The  file  is  then 
CLOSEd  WITH  LOC*-  and  an  attempt  is  made  to  OPEN  the  file. 

SQ217 


X-Numbers:  Basic  set  plus  01*  14*  15*  69*  74*  75*  76*  77. 

Features  Tested:  This  croqram  tests  the  level  2 OPEN  file-name  series  and 

CLOSE  file-name  series  statements.  A magnetic  tape  file 
and  two  mass  storaoe  files  are  created  and  verified.  Each 
of  the  files  in  this  program  contains  750  Fixed  length 
records  of  120  characters. 


S C 2 1 r 


X-Numbers:  Basic  set  plus  01*  14*  69*  74*  75*  76. 

Features  Tested:  This  program  tests  the  USE  AFTER  EPROk  PROCEDUM  for  EXTEND 

and  file- name  series.  a magnetic  tape  file  is  created  con- 
taining 750  fixed  length  records  of  126  characters.  Tie 
file  is  then  extended  by  250  records  an*  the  extended  file 
is  verified.  * mass  storage  file  containing  If  00  fixed 
length  records  of  126  characters  is  also  created  and  verified. 


w 


X-Numbers : 
Features  Tested: 


2 
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S 9 2 1 9 


X-Numbers:  Basic  set  plus  14#  69#  74#  75# 

Features  Tested:  This  prooram  tests  Sequential  1-0  operations  involving 

records  containino  subordinate  entries  which  in  turn  contain 
Format  2 OCCURS  clauses;  i.e.#  ...  OCCURS  integer-1  TO 

integer-?  TIMES  DEPENDING  ON  data-name-1  ...  . * file 

(SG-FS1)  is  created  with  1 CUD  fixed-length  141-character 
records  while  varyino  the  value  of  data-name-1.  The  tile 
is  read  back#  again  while  varying  the  value  of  data-naire-1. 
The  effect  of  varying  the  number  of  occurrences  during  READ 
and  WRITE  operations  is  evaluated. 


SL220 


X- Numbers:  Basic  set  plus  14#  69#  74#  76. 

Features  Tested:  This  program  tests  the  CLOSE  statement  with  the  LOCK  phrase. 

A mass  storage  file  is  created  containing  750  fixed  length 
records  of  120  characters.  The  file  is  then  CLOSEd  with 
LOCK  and  an  attempt  is  made  to  OPEN  the  file. 


S 043 1 


X-humbers:  Basic  set  plus  01#  08#  14#  17#  69#  73#  74#  76#  77#  78#  79#  tt 

Features  Tested:  The  prooram  SQ431  contains  level  2 Sequential  J-Q  language 

features  for  purposes  of  test  ino  the  FIPS  PUB  21-1  flangin'- 
requirement.  The  Sequential  I -0  level  2 elements  in  this 
program  are  contained  in  High -Intermediate  and  High  levels 
of  Federal  Standard  COBOL.  All  Sequential  1-0  level  ? 
language  features  are  tested  in  this  program. 


EC 


/ 


> 
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D.11  SORT-PERRE  MODULE 


ST1C1 


X-Numbers:  3asic  set  plus  Q1  / 27,  69,  74/  75. 

Features  Tested:  This  program  tests  the  INPUT  PROCEDURE  anrl  the  OUTPUT 

PROCEDURE  of  the  SORT  statement.  An  output  file  is  create u 
on  magnetic  tape  containing  100  fixed  lenath  records  of 
120  characters  each  with  10  records  per  block.  Five  sort 
key  data  items  of  1 , 2,  3/  U , and  5 characters  are  defined 
when  the  sort  file  is  created  and  they  are  tested  in  the 
sort  output  records  in  the  OUTPUT  PROCEDURF.  The  sorted 
file  from  program  ST1P1  is  passeo  to  ST1j2  for  further 
processing.  The  SORT  statement  in  this  program  is: 


SORT  file -name 

ON  ASCENDING  KFY  

ON  DESCENDING  KEY  

ON  ASCENDING  KEY  ... 

DESCENDING  

INPUT  PROCEDURE  IS  

OUTPUT  PROCEOURE  IS  THRU  


ST102 


X-Numbers:  Pasic  set  plus  01/  02,  27,  60/  74/  75/  76. 

Features  Tested:  This  program  tests  the  USING  and  GIVING  phrases  of  the  SORT 

statement.  The  file  created  in  ST101  is  used  as  inout  by 
referencing  it  in  the  USING  phrase.  The  file  created  in  this 
program  is  passed  to  ST103  for  further  processing.  The  outout 
file  is  referenced  in  the  GIVING  phrase.  The  SORT  statement 
in  this  program  is: 


SORT  f i le-name 

ON  DESCENDING  KEY  ... 
ON  ASCENDING  KEY  ... 
ON  DESCENDING  KEY  ... 

ASCFND ING  

USING  ... 

GIVING  ... 


% m t f | Hi 


•9,  74/  75. 

* •»•>•»<.  of  various  records  an"*  checks 

» » • file  created  lv  ST1J2.  No 

f f # 


) 


* 
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ST104 


X -Number s : Basic  set  plus  01#  69#  74#  75. 

Features  Tested:  This  program  builds  a 203  record  file  to  be  sorted  in  ST1H5. 

Each  18-character  record  consists  of  a 6-cFaractpr  SORT 
key.  The  file  is  not  created  in  sorted  order. 


ST105 


X-Numbers:  Basic  set  plus  01#  02#  27,  69#  74#  75#  76. 

Features  Tested:  This  program  tests  the  USING  phrase  and  the  OUTPUT  p^OCEDUCF 

of  the  SORT  statement.  The  file  created  in  ST104  is  used  as 
input  to  the  SORT  and  is  referenced  in  the  USING  phrase.  The 
SORT  statement  in  this  program  is: 

SORT  file-name  OF' 

DESCENDING  

key-item 
USING  

OUTPUT  PROCEDURE  THRU  


ST106 


X-Numters:  Basic  set  plus  01#  27#  69#  74#  75. 

Features  lested:  This  program  tests  th*3  GIVIN6  phrase  and  the  INPUT  PROCEDURE 

of  the  SORT  statement.  An  output  file  is  created  on  magnetic 
tape  containing  9 fixed  length  records  of  27  characters  each. 
Thr^e  sort  key  data  iters  of  1#  8#  and  15  characters  make  up 
the  entire  record.  after  the  file  is  sorted  it  is  passed 
through  the  GIVING  phrase  to  ST1Q7  for  further  processing . 

The  SORT  statement  in  this  program  is: 

SORT  file-name  ON 
ASCENDING  ... 

DESCENDING  ... 

ASCENDING  ... 

INPUT  PROCEDURE  THRU  ... 

GIVING  ... 


ST  1 C 7 


X-Numbers : Basic  set  plus  01#  69#  74#  75. 

Features  Tested:  This  program  checks  the  contents  of  various  records  in  the 

file  created  by  ST106.  No  SORT  statement  is  present. 
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STIOf 

— 

X -Numbers:  Basic  set  plus  27. 

Features  Tested:  This  program  tests  the  use  of  the  INPUT  PROCEDURE  and  the 

OUTPUT  PROCEDURE  of  the  SORT  statement  and  the  ability  cf  tl*> 
compiler  to  handle  eight  ascending  key  data  items  in  one  file. 
The  program  is  completely  self-contained.  The  SORT  statement 
in  this  program  is: 

SORT  file-name  ON 

ASCENDING  k'  E Y ... 

ASCENDING  

ASCENDING  

ASCENDING  ... 

ASCENDING  

ASCENDING  

ASCENDING  ... 

ASCENDING  ... 

INPUT  PROCEDURE  

OUTPUT  PROCEDURE  THRU  


S T 1 0<5 


X-Numbers:  Basic  set  plus  01/  09/  7A/  75. 

Features  Tested:  This  program  builds  a magnetic  tape  file  of  AO  variable  length 

records  which  is  sorted  in  ST110  and  checked  in  ST111.  The 
file  is  not  created  in  sorter  order  and  consists  of  records 
of  50/  75/  and  100  characters. 


ST11C 

X -Numbers : 
Features  Testpd: 


Basic  set  plus  01/  3?/  27/  69/  7 A/  75/  76. 

This  prooram  tests  the  USING  and  GIVING  phrases  of  tfe 
statement  for  a file  with  variable  l p n o t h records.  The  file 
created  in  S T 1 0 Q is  used  as  input  to  the  S0pT  and  is  refer- 
enced in  the  USING  phrase.  The  sorted  out  rut  file  is  named 
in  the  GIVING  phrase  and  is  passed  to  ST111  for  further 
procpssinn.  Two  sort  key  data  items  of  10  and  38  characters 
are  defined.  The  SORT  statement  in  this  pronrair  is: 

SORT  f i l e -namp 

DESCENDING  KEY 
key-  1 
key-2 
USING  ... 

GIVING  ...  . 


1 76 
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S T 1 1 1 


X-Numbers:  Basic  set  plus  0?*  69*  74*  76. 

Features  Tested:  This  program  checks  the  contents  of  various  records  in  the 

variable  length  record  file  created  in  ST109  and  sorted  in 
ST11Q.  bo  SORT  statement  is  present  in  ST111. 


S T 1 1 ? 


X-Mumbers:  Basic  set  plus  06*  6'9*  74*  79. 

Features  Tested:  This  program  builds  a three  reel  sequential  tape  file  con- 
sisting of  26  records  with  each  record  containing  33 
identical  alphabetic  characters  varying  from  A to  Z.  The 
file  is  passed  to  ST113  where  it  is  sorted  and  to  ST114 
where  it  is  tested. 

Special  Considerations: 

(1)  A three  reel  magnetic  tape  tile  is  required  if  allowed  h v 
the  operating  system. 

(2)  The  H-option  is  used  to  include  all  CLOSF  FEFL  statements 
in  the  source  program  when  a multi-reel  file  is  specified. 

(3)  The  I-option  is  used  to  delete  all  CLOSE  RFFL  statements 
from  the  source  program  when  a multi-reel  file  is  not 
specified. 


S T 1 1 3 


X-Numbers:  Basic  set  plus  01*  06*  ?7*  69*  74*  75*  79. 

Features  Tested:  This  program  tests  the  USING  and  GIVING  phrases  of  th°  SORT 

statement  for  a multi-reel  tape  file.  The  three  reel  tape 
file  created  in  ST112  is  used  as  input  to  the  SORT  and  is 
referenced  in  the  USING  phrase.  The  sorted  output  file  is 
named  in  the  GIVI  NO  phrase  and  is  passed  to  ST114  as  a single 
reel  file.  A single  sort  key  data  item  of  33  characters 
makes  up  the  entire  record.  The  SORT  statement  in  this 
p roQ r am  is: 

SORT  file-name  DESCENDING, 
key 

USING  

GIVING  ... 


5T114 

X-Numbers:  Pasic  set  plus  01*  69*  7b*  75. 


Features  Tested:  This  program  checks  the  contents  of  various  records  in  the 

file  created  in  ST112  and  sorted  in  ST113.  The  records  were 


ST115 

X - Numbe  r s 

Features 


S T 1 1 6 
X -Numbe  r s 
Features 


S T 1 1 7 
X -Numbers 
Features 


CCVS74  VERSION  7 * RFLFASE  0 77/10/13 


created  in  ascendinq  order  and  sorted  in  descertdinq  order. 


: Basic  set  plus  01 / 6 5 / 74/  75. 

Tested:  This  proqram  builds  a sequential  file  SGi-FSl  which  is  r^sse^ 

to  ST116  to  be  sorted.  File  SQ-FS1  has  fixed  length  records 
(507  characters/record)  and  is  unblocked.  The  number  of 
records  in  this  file  is  set  by  a four  dioit  inteoer  in  X - 6 5 . 
It  should  be  larae  enouqh  to  force  the  SORT  routine  in  ST11; 
to  be  non-core  resident;  that  i s / force  the  system  to  use 
some  means  of  auxiliary  storaoe  for  the  SORT  sut-strins. 


: Basic  set  plus  01/  02/  27/  ?4/  75/  76. 

Tested:  This  program  is  a test  of  the  SORT  statement  using  fixed 
length  records.  The  collatina  sequence  is  native;  i.e./ 
no  collatino  statement  is  used  in  the  actual  SIFT  statement. 
Qualified  alphanumeric  and  numeric  sort  keys  were  used. 

The  actual  SORT  statement  was  as  follows: 

SORT  sort-file-name 

ON  ASCEND! V G k F Y key-1  OF  data-name-1 
ASCENDING  key-?  OF  data-name-2 
USING  file-name-1 
GIVING  file-name-2. 

The  input  tile  SQ-FS1  is  created  in  ST115.  The  output 
file  SQ-FS2  is  passed  to  ST117  for  checking. 


: Basic  set  plus  02/  63/  b 5 / 7uf  it . 

lested:  This  program  checks  the  file  S0-FS?  which  was  sorted  into 

native  ascending  order  by  program  STIlb.  v-63  is  used  to 
input  the  system's  native  ascendinq  collating  sequence  as 
a literal  of  the  51  C 0 B r L characters.  Because  of  confusion 
over  the  use  of  a quote  sion  imbedded  within  a non-numeric 
literal/  the  quote  siqn  is  omitted  and  the  dollar  sign  is 
repeated.  An  example  of  an  X - 6 7 card  for  a machine  with 
ASCII  as  the  native  collating  sequence  is  as  follows: 

X -6  3 * $.$()*♦/-. /012345b7*59;<  = > A PCD  EFC>HlJK.U*NOFCRSTUVWXYZ  ' . 


The  X-65  shows  how  many  records  were  used  in  the  sequence 
of  proorams  ST115/  ST116/  ST117. 


X -Numbers:  Basic  set  plus  27. 


Features  Tested:  This  program  tests  the  use  of  the  INPUT  PROCEDURE  and  the 

OUTPUT  PROCEDURE  of  the  SORT  statement  and  the  abilty  of  tfe 
compiler  to  handle  eight  ascending  key  data  itens  in  one  file. 
Each  of  the  keys  identified  in  the  sort  statement  are  elemen- 
tary data  items  and  use  various  combinations  of  oicture  char- 
acter-string symbols  and  clauses  for  describing  the  general 
characteristics  of  the  data  item.  The  prooram  is  a rewritr 
of  ST108  and  specifically  test  use  of  the  SION'  clause  with 
sort  key  fields  for  the  file. 

SORT  f i le-name  ON 

ascending  KEY  

ASCENDING  ... 

ASCENDING  

ASCENDING  ... 

ASCENDING  

ASCFNDING  

ASCENDING  

ASCENDING  

INPUT  PROCF  DI'RE  

OUTPUT  PROCEDURE  THRU  


ST201 


X-Numbers:  basic  set  plus  01/  14/  ?7 / 2 F/  JR/  60/  74/  75/  76/  77. 


Features  Tested:  This  program  tests  the  use  of  three  SOFT  state rents  in  the 

same  program.  Numpric  and  alphabetic  kpy  'Jata  items  are  u«ed. 
S T<?C  1 begins  by  creating  a 1 OU  rpcord  file  with  blocking 
factor  of  10.  This  file  is  then  sorted  GIVING  a file  with 
the  same  file  description  for  use  in  the  second  sort.  TFe 
file  is  again  sorted  GIVING  a file  for  use  in  the  thirP 
SORT.  No  file  is  output  from  the  third  SORT.  This  proqrar 
also  exercises  the  SA*E  RECORD  AREA  clause.  Tfe  SORT  state- 
ments in  this  proar.nr  are: 

SOR  T f i l e-n  ame 

ON  DESCENDING  KEY  

ON  ASCFNDING  KEY  

USING  ... 

GIVING  ...  . 

SORT  f i l e -name 

ASCENDING  ... 

DESCENDING  ... 

ASCENDING  

INPUT  PROCEDURE  

GIVING  ... 
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X - Nil  m be  r s : 


Features  Tested: 
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SOR  T f i le-name 

ON  DESCENDTNr  if  F Y ... 
ASCENDING  ... 

INPUT  PROCEDURE  IS  

OUTPUT  PROCEDURE  ...  THRU 


Basic  set  olus  06/  27/  2f, , 74/  75. 

This  proqram  tests  the  use  of  three  SORT  statements  in  the 
same  proaram.  The  first  SORT  generates  inrut  data  in  the 
INPUT  PROCEDURE.  The  SORT  results  are  tested  in  the  lUTPi  T 
PROCEDURE  which  also  creates  a two-reel  10  0 record  tar-  Ml- 
(via  the  CLOSF  REEL  statement)  for  input  to  the  second  T Rl. 
The  third  SORT  exercises  the  sorted  file  for  the  second  tine 
Successful  execution  is  the  sole  test  of  this  rtRT.  Alpha- 
betic and  numeric  sort  key  data  items  of  1 characters  pact 
are  defined.  Also  tested  in  t*  is  cmoram  is  the  $ A ' • t- 
AREA  clause.  The  SORT  statements  in  this  rrogram  are: 

SORT  f i l e-n  ame 

DESCENDING  ... 

INPUT  PROCEDURE  ... 

OUTPUT  PROCEDURE  ... 

SQR  T f i le-n.ime 

ASCENDING  ... 

USING  ... 

OUTPUT  PROCEDURE  ... 

SORT  f i le-name 

ASCENDING  ... 

USING  ... 

OUTPUT  PROCEDURE  ... 


Special  Con s i de r a t i ons  : 


allowed  t y 


A two-reel  maqnetic  tape  file  is  required  if  allowed  t y 
the  ope  rati  no  system. 

The  H-option  is  used  to  include  all  CIPSE  F F L st  temrpts 
in  the  source  program  when  a multi-reel  file  is 
specified. 

The  I-option  is  used  to  delete  all  CLOSE  RfEL  statements 
from  the  source  proqram  when  a multi-repl  file  is  not 
spec i f i ed  . 


X-Numbers:  Basic  set  plus  01/  0?/  27/  28/  69/  74/  75/  76. 

Features  Tested:  This  proqram  tests  the  use  ol  two  SORT  statements  beinq 
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applied  1 5 the  same  Pf)  character  record.  The  cutout  ♦ r 
the  first  SIFT  recedes  the  input  file  for  the  c»con<t  r,  *<  t . 
The  file  is  copied  tape  to  tape  in  the  mainline  s»ct  n- 
between  the  sorts/  and  hot  I cosies  re  cherkr*4  in  t * e ft  T 
PROCEDURE  of  the  second  Si  !•  T . The  sor*  k»v  is  /tine  * 
an  F character  sinned  numeric  tata  itr  . This  ironr  i»  al« 
tests  the  use  of  the  Mn  SORT  Mil  cl  use.  !■ 
statements  in  this  pronram  in  : 

SOFT  file-name  ON  DfSCfkDII,  i i * 
key 

INPUT  PPOfFDUPl  ... 

PI  VI  NO  ... 

SOPT  file-name  (h  »Sf»hrl\  ».  I v 
key 

USING  ... 

output  Phrriot'M  ... 


S T2(  4 


*-Numkers:  Pasic  set  plus  ‘1#  -7#  .7#  e j # 's,  7S»  7*. 

features  Tested:  This  pronram  tests  tlr  use  nf  t .r  statement  rr  « 

aptlied  to  a file  already  if  s r r t e > r » r . r > ,.rti(  * • 

of  eleven  6i -character  r e r / r • s is  t r • * t e n u » t i . » - t 

section  of  the  cron  ram.  then  it  n «.  r t e •<  ••  r 1 1 y * ’ t » 

IV"  IT  P-  iCf  OllPt  an  ' HIT  nut  » rir  I • i , | s . < . t t | i , . t 
P r o u r mm  check*  t *•  e content*  of  vert  u * r e e r e « i>  t 'ii 
This  rronram  also  tests  the  ut<  of  the  1 • » r ( r i . • 

cliuse.  The  S o T statement  in  t ► t *.  j r > * r » ► is; 

SOt,  T file-name  iN  ASCFNOlS' 
key 

INPUT  PhOffOMPt  |«  ... 

OUIPUT  PPCCfOUftC  1 S ... 


SUi  •'> 


i-Surliers:  Pasic  set  plus  Cl*  0?/  I 3»  (4#  ?7 # cv#  74#  7S#  >*»  77#  7-. 

Features  Tested:  This  proaram  builds  a ? 1 record  file#  sorts  it#  anf  checks 

it  in  the  OUTPUT  PROCEDURE  of  the  SC^T  statement.  The  unu'U' 
feature  of  this  p, r o o r a m is  that  the  files  sharr  i n®tw  r k 1 
SA  MF  AREA#  SA*E  RFCGFD  AREA#  anl  SA*E  SOFT  A h F A clause*.  In 
order  to  thorouohly  exercise  the  SAfE  clause  options#  two 
dummy  files  are  opened#  closed#  read#  «nd  written.  however# 
the  contents  of  these  two  files  are  never  checked.  The  sort 
keys  are  defined  as  8 character  numeric  data  items. 


Ifcl 
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»-Nu*tff5 


Pas i c set  plus 


74,  75. 


features  Tested: 


This  proora'  tests  th»  use  of  the  fROd  rhrise  ot  the  R ( ! r A 5 *■ 
statement.  Ten  records  ore  created  with  a numerically 
rie  s c end  i no  hey.  The  record*  are  then  sorted  into  ascendin' 
sequence  and  the  results  are  s pot -c h e c h • d . The  sort  keys 

are  defined  <■ * r character  sinner*  numeric  data  items. 


• - • u » t e r s ; 
features  Tested 


•fas  i t 


r lus 


This  p r "*o  r « e is  u s • 1 to  t * s t tf«  j hi  statement  usini 
variable  lerqt**  records  which  contain  .»n  CfCttC1  pen  , nj 
clause.  T h • input  file  is  a *1  record  -ass  s t o r a i • file 
Cont<ininq  rec  r « s varvin  ir  sire  fro-  Is1  to  Is! 5 c*  r - 
act*rs.  This  ro-jr«*  alto  tests  t ► e use  of  qualified  alpha- 
nuaeric  and  "u*  »r  if  sort  hey  d » t * itews.  The  Si f T statement 
in  this  i rp'irir  is; 


SO h T f 1 I e -n  ..e  e 

ui  a sr  f no  i • r i 

*5  Cl  ht>  JNC  rff 

US  I h f ... 

» l Vlhfc  ...  . 


• - <u»  I e r s : 


“at  it  set  plus  1 4 , 15,  77,  hV,  74, 


features  tested; 


This  projra»  ImH  the  ' ip  T statement  usino  the  a l phabe  t -n » * 
clause  end  the  C c ’ 1 1 * T I h ■ r>  f 0 1 d , C f V h r a a e tr  t e • t the  i ilifv 
of  the  coatiler  tr  sort  files  into  tfe  ASCII  s«uuence  reeer  - 
less  of  the  native  collatin'  sequence  of  t 1 e machine.  T ■ t>  r 1 
record  mass  st^rane  files  are  initially  create1  to  **e  used 
in  the  SO N T tests. 

Also  tested  are  the  use  of  multiple  records  in  the  sort  tile 
rte s c r ip t i on , the  S*vf  SCPT-wfPPF  acca,  qualifier  alphanumeric 
and  numeric  sort  hey  data  items,  and  the  USI  Nr  file-name 
series  SORT  statement.  The  S 0 P T statement  in  this  proorair 


SORT  f i l e -n  ai»f 

ON  ASCENDING  1C  E Y ' 

ASCENDING  ...  OF  ... 
COLLATING  SEOIIFNCF  IS 

USING  

GIVING  ... 
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X-Numbers:  basic  set  plus  1 4 , 15,  16/  27/  69/  74/  75/  76/  77. 

features  Tested:  This  proraiii  tests  the  "'ERPf  statement  using  the  ASCII  colla- 
ting sequence  and  fixed  lenoth  records.  Two  51  record  <rass 
storaoe  files  consisting  of  13?  characters  per  record  are 
created  by  the  program  in  ascending  ASCII  order.  Then  the 
a l phabe  t -name  clause  and  the  1ERSE  statement  with  the 
COLLATING  SEQUENCE  phrase  are  used  to  test  the  compiler's 
ability  to  merge  two  files  into  a third  file  in  ascending 
ASCII  order.  This  program  also  tests  the  use  of  the  S a 71 E 
SORT-^E  KGE  AREA  clause/  qualified  alphanumeric  and  numeric 
merne  key  data  items/  and  the  USING  file-name  series  of  the 
dERGE  statement.  The  WERGE  statement  in  this  program  is: 

l*E  RGE  file-name 

ASCENDING  ...  OF  

ON  ASCFNDIM  kFV OF 

SFQUFNCE  ... 

USING  ... 

GIVING 


S T 2 11 


* - .u*ters 


asic  s *»t  plus  OR/  14/  15. 


7/  69,  74,  75, 


features  Tested: 


This  prop  ram  tests  the  vfRG  E statement  usina  t *■  e ASCII 
collating  sequence  and  a multiple  file  tape.  Two  files 
are  written  on  a multiple  file  tape  and  a thirc  file  i< 
created  on  mass  storaqe.  Tten  the  rroeram  tests  the  com- 
piler's ability  to  * f R G E tie  second  file  of  the  multiple 
file  t a f p with  the  mass  storage  file  tr  produce  a new  rass 
storage  file.  All  input  tiles  have  51  fixed  length  record* 
with  IX?  characters  per  record.  The  "r  RM  file  should  have 
1C?  records.  This  pronram  also  tests  the  SAKE  IQRT  a « r a 
clause,  qualified  alphanumeric  and  numeric  merne  xev  data 
items,  USING  file -name  series,  and  RFTHRN  RE  COR  I I.T> 
statement.  The  KfRGF  statement  in  this  proorar  is: 


S T?  1 1 


m F R G E t i l e -name 

ON  DFSCFNhl NG  rF*  01 

ASCFNOING  ...  OF  ... 
COLLATIN''  SEQUENCE  IS  ., 
OUTPUT  PROCEDURF  IS  


X -Numbe  r s : 


Basic  set  plus  14,  15, 


74,  75/  7b,  77. 


Features  Tested: 


This  prooram  tests  the  ri" E RG F statement  usino  the  COLLATING 
SEQUENCE  phrase  and  a user-defined  alphabet.  Also  tested 
is  the  SORT  statement  with  the  COLLATING  SEQUENCE  phrase 


1G3 


rrr: 


I 


I 
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and  the  alphabet-name  IS  STANDARD-1.  Two  51  record  mass 
storage  files  are  created.  Then  they  are  merged  accordino 
to  the  user  defined  seauence  to  produce  a 102  record  mass 
storage  file.  Finally,  the  file  is  sorted  into  ascending 
ASCII  sequence  by  the  SORT  statement.  All  files  consist 
of  132  character  records.  This  program  also  tests  the  SAME 
SORT  AREA  clause,  Qualified  merge  key  data  items,  USING 
file-name  series  clause,  and  the  R F TURN  ...  INTO  ... 
st  at  eipont . 

MERGE  f i l e- name 

ON  ASCENDING  < F Y OF OF 

COLLATING  SEQUENCE  IS  

USING  ...  , ... 

OUTPUT  PROCEDURE  IS  


X -Numbers:  Pasic  set  plus  14,  15,  27,  63,  6°,  74,  75,  76. 

Features  Tested:  This  program  tests  the  SORT  statement  usin"  fixed  length 

records.  Two  51  record  mass  storage  files  are  created,  then 
they  are  input  to  the  SORT  and  the  GIVING  phrase  rewrites 
the  first  file.  All  tiles  consist  of  17?  character  records. 
Th®  SORT  statement  in  this  program  is: 


SORT  file-name 

ON  ASCENDING  < E Y nf 

ASCENDING  OF  

USIN’  ...  , ... 

GIVING  ... 


ST21  7 


X-Numhers:  Pasic  set  plus  14,  15,  16,  27,  64,  6°,  74,  75,  76,  7/. 

Features  Tested:  This  progrs"  tests  the  MERGE  statement  usino  a native  colla- 
tin' sequence  and  fixed  length  records.  Initially,  two  51 
record  mass  storage  files  are  created  in  descenoing  native 
order.  The  gr,E  statement  is  used  to  meroe  the  two  files 
into  a third  file  of  102  records  in  descending  native  colla- 
ting sequence.  All  files  consist  of  132  character  records. 
The  yER0E  statement  in  this  program  is: 


MF  PSE  f i l e-name 

DESCENDING  CF  

ON  DESCENDING  KEY  OF  

USING  ... 

GIVING  


1M4 
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ST214 
X-ivumbers 
F eatu  res 


ST215 
X -IJu  mbe  r s 
Features 


ST21  6 
X -Number  s 
F e a t u res 


: Basic  set  plus  08#  14#  15#  64#  74#  75,  76,  77,  7g . 

Tested:  This  program  tests  the  MERGE  statement  using  a native 

collating  sequence  and  a multiple  file  tape.  Initially#  two 
51  record  files  are  written  on  a multiple  file  tane  in 
ascending  native  order.  Then  a third  file  is  written  on 
mass  storage.  Finally#  the  MERGE  statement  uses  thp  second 
and  third  files  to  create  a new  102  record  mass  storaoe  file 
All  files  consist  of  13?  character  records.  The  MERGF 
statement  in  this  program  is: 

MERGE  f i l e-name  . 

ON  DESCENDING  KEY  OF  

ASCENDING  ...  OF  

USING  

OUTPUT  PROCEDURE  IS  


: Basic  set  plus  14#  15#  16#  27#  63#  69#  74#  75#  76#  77. 

Tested:  This  program  tests  the  MERGE  statement  using  the  COLLATING 
SEQUENCE  phrase  and  a user  defined  alphabet.  The  SORT 
statement  without  the  COLLATING  SEQUENCE  specified  is  also 
tested.  In  this  case  the  native  sequence  is  used.  Two 
51  record  tape  files  are  initially  created.  Then  the  ‘•FRGF 
statement  combines  these  files  to  form  a third  mass  stnraae 
file  with  102  records  in  ascending  order.  This  file  is 
then  sorted  into  ascending  native  sequence  by  the  SORT 
statement  "jiving  back  the  first  file  with  102  records. 

This  program  contains  the  followinc  MERGE  and  SORT  state- 
ments: 


MERGE  file-name 

ON  ASCENDING  KEY  OF  ...  # OF  

COLLATING  SEQUENCE  IS  ... 

USING  

OUTPUT  PROCEDURE  IS  ...  . 


SOR  T f i le -name 

ON  ASCENDING  KFY  ...  OF  

ASCENDING  OF  

USING  

GIVING  


: Basic  set  plus  1R#  15#  27#  69#  74#  7 5#  76 

Tested:  This  program  tests  SORT  operations  involvino  records  con- 

taining subordinate  entries  which  in  turn  contain  Format  ? 
OCCURS  clauses;  i.e.  ...  OCCURS  inteoer-1  TO  integer-? 
TIMES  DFPENDING  ON  data-name-1  ...  . A file  (SQ-FS1 ) is 
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created  with  1000  f i x e d- l enot h 140-character  records.  The 
file  is  then  SORTed/  RELFASEing  and  RFTURNing  records  using 
record  descriptions  with  the  Format  2 OCCURS  clause.  The 
effect  of  varying  data -name-1  is  evaluated;  tie  performance 
of  the  SORT  verb  is  none  checked. 


ST431 


X-Numbers 


Features  Tested 


The  program  ST431  contains  level  1 Sort/Xeroe  features  for 
purposes  of  test  inn  the  FIPS  PUP  21-1  flagoinc  requirement 
The  SRT  level  1 elements  in  this  program  are  contained  in 
the  Hi ob-I nt e rmed i at e and  High  levels  of  Federal  Standard 
COBOL.  The  Data  Division  clause  to  be  flagged  is: 


name 


The  Procedure  Division  statements  to  be  flagged  are 


SORT  file -name 


RELEASE  sort-record- name 


ST432 


X —Numb er  s 


Features  Tested 


The  program  ST432  contains  level  1 Sort /i^e  rae  features  for 
purposes  of  testing  the  FIPS  PUB  21-1  flagging  requirement 
The  SRT  level  1 elements  in  this  program  are  contained  in 
the  High-Intermediate  and  High  levels  of  Federal  Standard 
COBOL.  The  Data  Division  clause  to  be  flagged  is: 


SD  file-name 


The  Procedure  Division  statements  to  be  flagged  are 


SORT  fi le-name 


RETURN  sort-name  RECORD 


Basic  set  plus  1 / 15,  27*  74/  7k,  and  77 


X -Numbers 


Features  Tested 


The  program  ST433  contains  level  1 Sort/^erge  features  for 
purposes  of  testing  the  FIPS  PUB  21-1  flagging  requirement 
Th»  SRT  level  1 elements  in  this  program  are  contained  in 
the  H i qh- I n t e r med i a t e and  Hioh  levels  of  Federal  Standard 
C0E*0L.  The  Data  Division  clause  to  be  flagged  is: 


name 


The  Procedure  Division  statement  to  flagqed  is 


J 
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SORT  sort-file-name. 


ST434 

X-Kumbers:  Basic  set  plus  1 / 7 4/  and  77. 

Features  Tested:  The  prooram  ST434  tests  the  file  produced  in  program  STA23 

with  respect  to  the  final  sort  sequence  of  the  file  gener- 
ated and  sorted  in  ST431 / sorted  in  ST43?  and  also  in  ST433. 

No  elements  of  this  program  should  be  flanged. 


ST441 

X-Numbers:  Basic  set  plus  1/  14/  1 5/  27,  74/  75/  76/  and  77. 

Features  Tested:  The  program  ST441  contains  level  2 Sort/'"erge  features  for 

purposes  of  testing  the  FIPS  PUP  21-1  flaagino  requirement. 
The  SRT  level  2 elements  in  this  prooram  are  contained  in 
the  High  level  of  Federal  Standard  COBOL.  The  Environment 
Division  clause  to  be  flanged  is: 

SAXE  SORT  AREA  s o r t - f i l e-n ame / file-name. 

The  Procedure  Division  statements  to  be  f lagqeci  are: 

SORT  LISINS  file-name  series. 

Multiple  SORTs  in  the  Procedure  Division. 

ST442 

X-Numbers:  Basic  set  plus  2,  14/  15/  27,  74/  75/  76/  end  7* . 

Features  Testea:  The  program  ST442  contains  level  2 Scrt/Merqe  features  for 

purposes  of  testing  the  FIPS  PUB  21-1  flenqino  requirement. 
The  SRT  level  2 elements  in  this  prooram  are  contained  in 
the  Hiqh  level  of  Federal  Standard  COPOL.  The  Environment 
Division  clause  to  be  flanged  is: 

SAME  RECORD  AREA  FOR  fite-narr°/  s o r t - f i l e -name  . 

The  Procedure  Division  statements  to  be  flaaqed  ar*»: 

SORT  USING  file-name  series. 

Multiple  SORTs  in  the  Procedure  Division. 

COLLATING  SFQUENCE  phrase  in  the  SORT  statement. 

ST443 

X-Numbers:  Basic  set  plus  1 / 2,  14/  1 5/  27/  74/  75/  76/  77,  and  7if. 


1 1 7 
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Features  Tested:  The  program  ST443  contains  Level  2 Sort/ Merge  features  for 

purposes  of  testing  the  FIPS  PUB  '21-1  flagqino  requirement. 
The  SRT  level  2 elements  in  this  program  are  contained  in 
the  High  level  of  Federal  Standard  COBOL.  The  Environment 
Division  clause  to  be  flagged  is: 

SAME  SORT-MERGE  AREA  FOR  file-name,  s or  t - f i l e- n ante. 

The  Procedure  Division  statements  to  be  flagged  ar»: 

MFRGE  merge-file-name. 

Multiple  merges  in  the  Procedure  Division. 
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D.12  TABLE  HANDLING  MODULE 


TH 1 01 


X -".umbers 


Basic  se 


This  program  tests  the  use. of  the  format  1 SET  statement. 
Various  combinations  of  setting  identifiers  and  index-nam.es 
to  identifiers#  index-names#  and  integers  are  tested. 


Features  Tested 


TH10? 


X -hu  mber  s 


This  program  tests  the  use  of  numeric  literal  subscripts  to 
reference  internal  table  items. 


Features  Tested 


T HI  03 


X -Number s 


This  program  tests  the  use  of  subscripts#  composed  of  numeric 
integer  data-names#  to  reference  internal  table  items. 


Features  Tested 


TH104 


This  program  tests  the  use  of  the  SFT  statement  in  conjunction 
with  a redefined  table.  Index-names  are  SET  to  numeric 
integers#  USAGE  index  data  items#  and  indices  assiqned  to 
other  tables. 


Features  Tested 


TH105 


X -Number  s 


This  program  tests  the  accessing  of  a t H r e e dimensional  table 
using  numeric  literals  and  data-names  as  subscripts. 


Features  Tested 


Thl  06 


X -Nu  mbe r s 


Basic  set 


This  program  tests  the  use  of  index-names  to  reference  tables 
that  have  been  redefined#  omitting  the  INDEXED  BY  clause. 

Also  tested  are  the  SF.T  ...  UP  RY  ...  and  SET  ...DOJN  BY  ... 
statements. 


Features  Tested 


1 


*! 
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X-Numbers:  Basic  set  only. 


Features  Tested:  This  program  verifies  the  accuracy  in  building  and  accessing 

a three  dimensional  table  using  various  combinations  of 
numeric  literal  subscripts. 


TH10?, 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  verifies  the  accuracy  in  building  and  acc^ssino 

a three  dimensional  table  using  various  combinations  of 
internal  indices. 


TH109 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  use  of  spaces#  commas#  and  left  and 

right  parentheses  as  separators  in  statements  which  reference 
table  items. 


TH110 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  use  of  a mixture  of  literals  and  index- 

names  to  reference  table  items. 


T H 1 1 1 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  tests  the  use  of  the  SET  ...  UP  BY  ...  and  SET  .. 

DOWN  BY  ...  statements  using  various  combinations  of  oositive# 
negative#  zero#  and  unsigned  numeric  literals  and  d ta-names 
as  indices. 


T Hi  5 1 

X-Numbers:  Basic  set  only. 

Features  Tested:  This  proqrair  tests  the  use  of  numeric  literal  subscripts  to 

reference  internal  table  items. 
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TH152 


X - b umbers 


Features  Tested 


This  program  tests  the  use  of  subscripts  composed  of  numeric 
integer  data-names  to  reference  internal  table  items. 


TH2C1 


X-Number s 


F eatures  Tested 


This  program  verifies  the  accuracy  in  building  and  accessing 
a three  dimensional  table  using  indexing  and  subscripting  to 
reference  individual  table  items.  This  proarat  tests  the  use 
cf  the  format  1 SFARCH  statement  with  VARYING  and  AT  EfD 
phrases  and  the  format  1 SET  statement. 


TH202 


X -Numbers 


Features  Tested 


This  program  verifies  the  accuracy  in  buildina  and  accession 
a three  dimensional  tabte  usino  indexing  and  subscripting  to 
reference  individual  table  items.  This  proa  ran  tests  the  use 
of  the  format  1 SEARCH  statement  with  VARYING  and  AT  EKD 
phrases  and  the  format  1 SET  statement. 


TH203 


Basic  set  only 


X-Numbers 


Features  Tested 


This  program  verifies  the  accuracy  in  building  and  accession 
a three  dimensional  table  using  indexing  and  subscripting  to 
reference  individual  table  items.  This  program  tests  the  use 
of  the  format  1 SEARCH  statement  with  VARYING  and  AT  F* C 
phrases  and  the  format  1 SET  statement. 


TF'204 


X-Numbers 


Basic  set 


Features  Tested 


This  program  verifies  the  accuracy  in  buildinq  and  accessing 
a three  dimensional  table  usinq  indexing  and  subscripting  to 
reference  individual  table  items.  This  program  tests  the  use 
of  the  format  1 SEARCH  statement  with  VARYING  and  AT  Ftp 
phrases  and  the  format  1 SET  statement. 


TH205 


X-Numbers 
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Features  Tested:  This  program  verifies  the  accuracy  in  building  and  accessing 

a three  dimensional  table  using  indexing  and  subscripting. 

The  table  is  defined  using  the  OCCURS/  ASCENDING  KEY  and 
INDEXED  BY  clauses.  This  program  tests  the  use  of  the  f orrat 
2 SEARCH  statement  with  the  AT  END  phrase  and  the  format  1 SIT 
stateme  nt . 


TH206 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  verifies  the  accuracy  in  building  and  accessing 

a three  dimensional  table  usino  indexing  and  subscripting. 

The  table  is  defined  using  the  OCCURS/  ASCFNDIFG  <EY  and 
INDEXED  BY  clauses.  This  program  tests  the  use  of  the  format 
2 SEARCH  statement  with  the  AT  END  phrase  and  a single  V.HEN 
phrase/  and  a format  1 SET  statement. 


TH2C7 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  program  verifies  the  accuracy  in  building  and  accessing 

a three  dimensional  table  using  indexing.  The  table  is 
defined  using  the  OCCURS  and  INDFXFD  BY  clauses  and  then  it  is 
redefined  with  a second  table.  This  program  tests  the  use 
of  the  format  1 SEARCH  statement  with  the  varying  and  AT  END 
phrases/  and  the  format  1 SFT  statement. 


THZ0« 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  proqram  defines  a one  dimensional  table  which  has  a 

variable  number  of  occurrences  of  table  items  and  then 
references  the  items  using  indexina.  The  table  is  defined 
using  the  format  2 OCCURS  clause  and  consists  of  several 
condition -name  entries.  The  program  tests  the  use  of  thp 
format  1 and  2 SFARCH  statements. 


TH209 


X-Numbers:  Basic  set  only. 

Features  Tested:  This  proaram  defines  a one  dimensional  table  which  redefines 

an  elementary  item.  The  program  then  tests  the  use  of  tb«* 
format  1 SET  statement  and  the  format  1 SEARCH  statement  with 
VARYING  and  AT  END  clauses.  An  index  assigned  to  one  table 
or  an  index  data  item  is  then  varied  when  searching  the 
second  table.  A comparison  is  made  to  verify  that  the  indices 
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or  the  index  and  index  data  items  are  varied  properly. 


TH21C 


X -Nu m be r s : 


Features  Tested: 


Basic  set  only. 

This  program  defines  a three  dimensional  table  containing 
various  ascending  and  descending  keys  that  are  referenced  by 
subscripts  and  indices  which  have  comput at i ona l values  or  have 
been  set  to  computational  items.  Some  of  the  optional  words 
have  been  eliminated  from  the  syntax. 


TH211 


X -Numbe r s : 


Basic  set  only. 


Features  Tested: 


This  program  defines  a two  dimensional  table  containing 
various  ascending  and  descending  keys  and  multiple  indices. 
The  program  then  tests  the  use  of  the  format  1 and  2 SFARCH 
statements  with  and  without  multiple  conditions  in  the  WHEN 
phrase  to  reference  the  table. 


TH212 


X-’vumters: 


Basic  set  only 


Features  Tested 


TH213 


X-Number s : 


This  program  defines  a three  dimensional  table  and  tests  the 
reference  of  individual  table  items  using  indexing. 


Basic  set  only. 


Features  Tested: 


This  program  defines  a three  dimensional  table  and  tests  the 
reference  of  individual  table  items  usinn  sinned  and  unsiur. ed 
numeric  items  as  subscripts. 


TH214 


X-Numbers : 


Features  Tested: 


Basic  set  only. 

This  program  defines  a three  dimensional  table  and  tests  the 
reference  of  individual  table  items  using  unsigned  numeric 
items  as  indices  and  subscripts. 


TH215 


X -Numbers : 


Bas  ic  set  only. 
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Features  Tested: 


TH216 


X -Numbe  r s : 


Features  Tested: 


TH217 


X- Numbers: 


Features  Tested: 


TH218 


X-Numbers 


Features  Tested: 


TH219 


X-Numbers : 


Features  Tested: 


TH22C 


X -Numbers : 


Features  Tested: 


TH221 


X-Number s : 


This  program  defines  a three  dimensional  table  and  tests  the 
reference  of  individual  table  items  using  indexing. 


Basic  set  only. 

This  program  defines  a three  dimensional  table  and  tests  the 
reference  of  individual  table  items  using  indexing  and 
subscripting. 


Pa  sic  set  only. 

This  program  defines  a throe  dimensional  table  and  tests 
reference  of  individual  table  items  using  indexing  and 
subscription. 


Basic  set  only. 

This  program  defines  a two  dimensional  table  ccrtaininu  the 
OCCURS  clause  with  the  INDEXED  BY  series  clause.  The  rrogrart 
tests  relative  addressing  and  various  combinations  of  the 
format  2 SET  statement. 


Basic  set  only. 

This  program  defines  a two  dimensional  and  a three  dimensional 
table  and  tests  the  use  of  the  semicolon  as  a separator  in 
referencing  table  items  via  subscripting  and  indexino. 


Basic  set  only. 

This  routine  defines  several  tables  which  must  be  qualified 
in  order  to  reference  the  table  items.  The  use  of  qualified 
subscripts  in  referencing  both  unqualified  and  qualified 
table  items  is  tested.  Additionally*  there  are  conditional 
statements  which  reference  qualified  condition-names  with 
both  unqualified  and  qualified  subscripts. 


Basic  set  only 
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Features  Tested: 


TH431 


X -Number  s : 


Features  Tested: 


This  program  tests  various  Nucleus  module  verbs  act  ino  on 
WORKING-STORAGE  records  containing  subordinate  entries 
which  in  turn  contain  Format  2 OCCURS  clauses;  i.e.  ... 
OCCURS  inteqer-1  TO  integer-?  TI^ES  DEPENDING  ON  data-name-1 
...  . The  tests  ascertain  whether  the  compiler  treats  the 
number  of  table  occurrences  as  variable  depending  on  the 
current  value  of  the  data-name-1  identifier.  Operations 
tested  include  IF,  INSPECT,  MOVE,  SEARCH,  STRING,  and 
UNSTRING. 


Basic  set  only. 

The  program  T H 4 3 1 contains  the  level  ? Table  Handling  features 
for  purposes  of  testing  the  FIPS  PUP  21-1  flaggina  require- 
ment. The  TBL  level  ? elements  in  this  program  are  contained 
in  the  High-Intermediate  Level  of  Federal  Standard  COBOL. 

Data  Division  clauses  to  be  flagged  are 

OCCURS  DEPENDING  ON 
ASCENDING  KEY 
DESCENDING  KEY. 

The  Procedure  Division  statements  to  be  flagged  are 

SEARCH  identifier. 

SEARCH  ALL  identifier. 
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E.  SYSTEM  DEPENDENT  INFORMATION  FOR  PPLVP74  IMPLEMENTATION 

There  may  be  some  modifications  necessary  to  the  source  code  for  the 
P PL VP 74  processor  beyond  those  identified  in  Appendix  R.  Through  the  use 
of  the  "Bootstrap"  program  shown  in  Appendix  R certain  modifications  may 
be  made  during  the  process  of  extracting  PPLVP74  from  the  Population  File 
(source  program  library).  There  are  several  places  in  the  source  code  of 
PPLVP74  where  comment  entries  have  been  included  to  facilitate  certain 
limited  modifications  which  can  be  made  through  the  use  of  the  Bootstrap  pro- 
gram. [The  bootstrap  procjram  coula  be  used  to  merely  extract  the  source 
program  for  further  modification  through  the  use  of  system  utilities  (e.  .# 
text  editors#  source  program  update  processor). 1 

The  referenced  comment  entries  are  all  unique  and  are  located  in 

1.  The  File  Description  entry  for  the  Population  File. 

2.  The  File  Description  entry  for  the  Source  Program  Fite. 

3.  The  Read  routine  for  the  Population  File  fcllowino  the 
READ  statement.  The  record  is  available  by  referencina 
the  record  name  SOURCE#- IN-2400. 

4.  The  Read  routine  for  the  Source  Proaram  File  following 

the  READ  statement.  The  record  is  available  by  referencing 

the  record  name  UD-RECORD. 

Source  code  can  be  inserted  at  these  four  locations  in  the  PPLVP74 
source  program  by  making  modifications  to  the  Bootstrap  proaram.  The  section 
named  WRITE-CARD  contains  the  statement  which  writes  the  current  source 
image  of  PPLVP74  to  the  file  from  which  PPLVP74  will  be  further  processed. 

3y  testing  for  the  data-name  VP-12-18  against  one  of  the  values  of  the 
comment  entries#  the  comment  entry  can  be  located.  When  an  equal  compare 
exists  then  the  appropriate  code  can  be  inserted. 

E x a rri  p l e 

1.  The  UNIVAC  FXEC-8  Field  Data  COBOL  compiler  requires  that  the 
File  Description  entry  for  the  Population  Tile  must  contain 

a nonstandard  clause  in  order  to  read  the  magnetic  tape  as 
produced  by  the  Software  Development  Division.  This  clause# 
•RECORDING  v0DE  1'#  can  be  inserted  by  the  followin'’  source 
code  beino  placed  in  ’WRITE-CARD'  before  the  WRITE  statement 
for  VP-REC. 

IF  VP-12-18  EQUAL  'FDPOPFI  ’ 

WRITE  VP-PEC 

MOVE  ’RECORDING  MODE  1’  TO  VP-12-7?. 

* The  statement  WRITF  VP-RrC  will  follow  immediately 

* and  cause  the  statement  to  be  inserted. 

2.  The  HONEYWFLL  GCOS  COBOL  compiler  requires  that  the  File 
Description  entry  for  the  Population  File  must  contain  a 
nonstandard  clause  in  order  to  read  the  magnetic  tape  as 
produced  by  the  Software  Development  Division.  This 
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clause#  'RECORDING  MODE  BCD'#  can  be  inserted  by  the 
following  source  code  being  placed  in  'WRITE-CARD*  tefor<= 
WRITE  statement  for  VP-RFC. 

IF  VP-12-18  EQUAL  TO  'EDPOPEI' 

WRITE  VP-REC 

MOVE  'RECORDING  MODE  BCD'  TO  VP-12-72. 

A modified  Bootstrap  Source  Program  for  the  IBM  OS/VS 
operating  systems  follows.  The  modifications  are  more 
complex  and  as  such  are  shown  in  their  complete  context. 

The  character  set  (special  characters)  must  be  converted 
both  while  the  PPLVP74  processor  is  being  extracted  and 
when  the  PPLVP74  processor  extracts  source  proorams  for 
the  Population  File.  The  followino  source  code  must  be 
inserted  in  Read  routine  for  the  Population  File: 

IF  BCD-POP  FQUAL  TO  'YES' 

TRANSFORM  SOMRC E- I N-2400  FROM  ’S'  TO  GUOTF 
TRANSFORM  SOURCE-IN -2400  FRO'*  '<  + ?,  = *<%'  TO  ')<+>=('. 

The  following  source  code  must  be  inserted  in  the  Read 
routine  for  the  CONTROL-CARD  file: 

IF  BCD-CTL  EQUAL  TO  'YES' 

TRANSFORM  UD-RECORD  FROM  '5,'  TO  GUOTF 
TRANSFORM  UD-RECORD  FROM  '<  + & = «V  TO  ')<+>=('. 

The  Bootstrap  Program  for  CS/VS  follows. 


//UTBASVP8  JOB  ( T99905 # C C 1 0 ) # ' F C C TS ' # MSGLE VEL=1 , C L AS S=B# 
//  MSGCLASS=A 
//STEPU  EXEC  COBVCLG 
//COB.SYSIN  DD  * 

IDENTIFICATION  DIVISION. 

PROGRAM-ID  . 

IBMOSB  . 

ENVIRONMENT  DIVISION. 

INPUT-OUTPUT  SECTION. 

FILE-CONTROL  . 

SELECT  POPFILE  ASSIGN  TO 
UT-S-SYSUT1 . 

SFLF.CT  PR  T ASSIGN  TO 
UT-S-SYSOUT. 

SELECT  VP-FILE  ASSIGN  TO 
UT-S-SYSUT  2 . 

DATA  DIVISION. 

FILE  SECTION. 

FD  POPFILE 

LABEL  RECORDS  OMITTED 
DATA  RFCORD  POP-REC 

block:  contains  1 records 

RECORD  CONTAINS  24C0  CHARACTERS. 

01  POF-REC. 
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02  CARD1  PIC  X (80)  OCCURS  30  TIMES. 
VP-FILE 

LABEL  RECORDS  STANDARD 
DATA  RECORD  IS  VP-REC. 

VP-REC  . 

02  VP-1-72. 

05  VP-1-6  PIC  X (6)  . 

05  VP-7-7  PIC  X. 

05  VP-8-11  PIC  X(4>. 

05  VP- 12-7?. 


07 

VP- 

12-18. 

09 

VP- 

12-16 

PIC  xxxxx 

09 

VP- 

17-19 

PIC  99. 

88 

X01 

VALUF 

001  . 

88 

X 02 

VALUE 

002. 

88 

X 03 

VALUE 

003. 

38 

X 04 

VALUE 

004. 

86 

X10 

VALUF 

CIO.  • 

86 

X 11 

VALUF 

Oil. 

83 

X 1 2 

VALUE 

012. 

86 

X 1 3 

VALUF 

013. 

88 

X 1 4 

VALUF 

014. 

88 

X 1 5 

VALUE 

Cl  5 . 

88 

X 1 6 

VALUF 

016. 

88 

X 1 7 

VALUE 

017. 

86 

X1S 

VALUF 

C 1 8 . 

88 

X 1 9 

VALUE 

019. 

88 

X 36 

VALUF 

036. 

86 

X 37 

VALUE 

0 3 7. 

33 

X45 

VALUF 

045. 

88 

X 48 

VALUE 

048. 

88 

X 49 

VALUF 

049. 

58 

X50 

VALUF 

C 50 . 

07 

FILLER  PIC  X (54)  . 

F D 


02  V P-73-77  PIC  X ( 5 ) . 

02  VP-78-80  PIC  X ( 3 ) . 

PRT 

LABEL  RECORDS  STANDARD 
DATA  RECORD  PRT-REC. 

PRT-RE  C . 

02  FILLER  PIC  X(13C>. 

WORKING-STORAGE  SFCTION. 

01  SUBl  PIC  S9<9)  USAGE  COrp  SYNC  RIGHT  VALUE  55. 
01  VP-REC-HOLD  PIC  X(80). 

* COMP  ENT  1 


01 


* 

* 

* 

* 


The  following  data  item  contains  the  implementor  names  and 
table  values  to  be  used  as  the  PPLVP74  processor  is  generated 
See  Appendix  B for  a definition  of  what  is  contained  in  each 
data  item. 


01 


CONTROL-CARDS. 

03  CTL-01  PIC  X ( 28  ) VALUF  *UT -S-S Y SUT 1 . 
C3  C TL -02  PIC  X (28)  VALUE  • U T- S- S Y SUT2 . 
03  CTL-03  PIC  X ( 2 8 ) VALUF  ‘UT-S-S YSUT3  . 
03  CTL-04  PIC  X ( 28  ) VALUF  'UT-S-SY  SUT  4 . 
03  CTL-10  PIC  X(2?)  VALUF 
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03 

CTL-11 

PIC 

X ( 23 ) 

VALUE 

•53. 

03 

CTL-12 

PIC 

X ( 28  ) 

VALUF 

•58. 

03 

CTL-13 

PIC 

X ( 28 ) 

VALUE 

*10. 

03 

CTL-14 

PIC 

X ( 23 ) 

VALUE 

•30. 

03 

CTL-15 

PIC 

X (28  ) 

value 

•53. 

03 

CTL-16 

PIC 

X (28) 

VALUE 

*10. 

03 

CTL-17 

PIC 

X ( 28 ) 

VALUF 

*150. 

03 

CTL-13 

PIC 

X ( 2 8 ) 

VALUF 

*13. 

03 

CTL-19 

PIC 

x (28) 

VALUF 

*200. 

03 

C TL -36 

PIC 

X ( 28 ) 

VALUE 

•UT-S-SYSOUT . 

■ 

03 

CTL-37 

PIC 

x ( 28 ) 

VALUE 

’UT-S-SVSIN. 

f 

03 

CTL-45 

PIC 

X (28  ) 

VALUE 

•coi 

1 

C3 

CTL-4S 

PIC 

X ( 28 ) 

VALUE 

•OMITTED 

• 

03 

C TL-49 

PIC 

X ( 28  ) 

VALUE 

•IBM-360. 

• 

03 

C TL -50 

PIC 

X (28) 

VALUE 

*13 M -360 . 

* COMMENT  2 

* The  following  workina  storage  records  ( LI  ME  - 1 throuoh  LlN'E-6) 

* represent  source  statements  which  are  to  be  inserted  into 

* PPLVP74  as  it  is  extracted  from  the  Population  File.  The 

* complete  text  contained  in  these  records  is  shown  in  the 

* narrative  describing  the  prooram. 

<21  LINE-1. 

0?  FILLER  PIC  X C 28 ) VALUE 
•IF  BCD-POP  EQUAL  TO  *. 

02  FILLER  PICTURE  X VALUE  QUOTE. 

C2  FILLER  PICTURE  XXX  VALUE  'YES*. 

02  FILLER  PICTURE  X VALUE  QUOTE. 

01  LINE-2. 


02  FILLER  PICTURE  X(39>  VALUE 

• TRANSFORM  SOUR C E -I N-2A00  FROM  *. 
02  FILLER  PICTURE  X VALUE  QUOTE. 

02  FILLER  PICTURE  X VALUE  * S * . 

02  FILLFR  PICTURE  X VALUE  QUOTE. 

02  FILLER  PICTURE  X < 1 1 > VALUE  * TO  QUOTF  * . 
01  LINE-3. 

02  FILLER  PICTURE  X(3<v)  VALUE 

• TRANSFORM  SOURCF -I N-2400  FROM  *. 
02  FILLER  PICTURE  X VALUE  QUOTE. 

02  FILLER  PICTURE  X(06)  VALUE  ,<+8=#%*. 

02  FILLER  PICTURE  X VALUE  QUOTF. 

02  FILLFR  PICTURE  XXXX  VALUE  * TO  •. 

02  FILLER  PICTURE  X VALUE  QUOTE. 

02  FILLFR  PICTURE  X(06)  VALUE  •)<♦>=(*. 

02  FILLER  PICTURE  X VALUE  QUOTE. 

02  FILLER  PICTURE  X VALUE  •.*. 

01  LINE-4. 

02  FILLER  PIC  X(28>  VALUE 
’IF  BCD-CTL  EQUAL  TO  *. 

02  FILLFR  PICTURE  X VALUE  QUOTF. 

02  FILLER  PICTURE  XXX  VALUE  ’YES’. 

02  FILLER  PICTURE  X VALUE  QUOTF. 

01  LINE -5. 

02  FILLER  PICTURF  X(3Q)  VALUF 

• TRANSFORM  UD-RECORD  FRO**  ’. 

02  FILLER  PICTURE  X VALUF  QUOTE. 
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01 


02 

FILLER 

PICTURE 

X 

VALUE 

C . 

02 

FILLER 

PICTURE 

X 

VALUE 

QUOTE  . 

02 

FILLER 

PICTURF 

X ( 1 1 ) VALUE  * TO 

QUOTE 

LINE-6. 

02 

FILLER 

PICTURE 

X ( 39  ) VALUE 

9 

TRANSFORM 

UD-RECORD  FROM, 

9 

02 

FILLER 

PICTURE 

X 

VALUF 

QUOTE  . 

02 

FILLER 

PICTURE 

X ( 06 ) VALUE  * < + S= 

tn  * . 

02 

FILLER 

PICTURE 

X 

VALUE 

GUOTE  . 

02 

FILLER 

PICTURE 

XXXX  VALUE  ' TO  * 

02 

FILLER 

PICTURE 

X 

VALUE 

QUOTF  . 

02 

FILLER 

PICTURE 

X (06) 

VALUE  ')<+>=('. 

02 

FILLER 

PICTURE 

X 

VALUE 

QUOTE. 

02 

FILLER 

PICTURE 

X 

VALUE 

• • 

• • 

PROCEDURE  DIVISION- 
DRIVER  -SECTION  SECTION. 

DRIVER1  . 

OPEN  INPUT  POPFILE. 

OPEM  OUTPUT  PR  T VP-FILE. 

130 VE  'START*  TO  PRT-RFC. 

WRITE  PRT-REC. 

r ***  DOWHILE  VP-1 -72  NOT  EQUAL  TO  . . . 

PERFORA  READ-POP  UNTIL  VP-1-72  EQUAL  TO 
'*HEADER,C0P0L,ASVP9  *. 

WRITE  PRT-RFC  FROM  VP-REC. 
r ***  D0UNT1L  VP-1-6  EQUAL  TO  ... 

PERFORM  SELF  CT-VP. 

WRITE  PRT-REC  FROM  VP-REC. 

FEPFORM  SELECT-VP  UNTIL 

VP-1-6  EQUAL  TO  '*FND-Q*  OP 
VP-1-6  EQUAL  TO  **HE  ADE  * . 

WRITE  PRT-REC  FRO!*  VP-RFC. 

*OVE  'FIN  * TO  PRT-REC. 

WRITE  PRT-REC. 

CLOSE  PR  T VP-FILE  POPFILF. 

STOP  RUN. 

SFLFCT-VP  SECTION. 

SI  i -01  . 

PERFORM  READ-POP. 

IF  VP-1-6  EQUAL  TO  * * H E A D E * OP 
VP-1-6  EGUAL  TO  **FILFS*  OP 
VP-1-6  EQUAL  TO  **E  ND-0  * 


ELSE 


GO  10  SELECT-EXIT 

PERFORM  PROCFSS-VP 
IF  VP-7-7  EQUAL  TO  ’ 1 
VP-7-7  EQUAL  TO 
VP-7-7  EQUAL  TO  **' 
PERFORM  WPITF-CARD 

ELSE 

IF  VP-7-7  FGUAL  TO 
VP-7-7  EGUAL  TO 
VP-7-7  EQUAL  TO 
VP-7-7  FQUAL  TO 
VP-7-7  EGUAL  TO 


OR 

OR 


*A  * 
*E  * 
*C  * 
*L* 
*1  * 


OR 

OR 

OR 

OR 
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MOVE  SPACE  TO  VP-7-7 
PERFORM  URITE-CARD. 

* ENDIF 

* ENDIF 

* ENDIF 
SELECT-EXIT. 

READ-POP  SECTION. 

RE  AD  1 . 

IF  SUB  1 GRFATEP  30 

MOVE  1 TO  SUP1 
PERFORM  RE ADP1  . 

MOVE  CARD1  (SUB1)  TO  VP-REC 
♦COMMENT  3 

* The  following  TRANSFORM  statements  will  convert  the  special 

* characters  on  the  population  file  to  the  appropriate  EBCDIC 

* character  required  by  the  360/370. 

TRANSFORM  VP-12-7?  FRO*  *3*  TO  QUOTE. 

TRANSFORM  VP-12-72  FROM  *<+&=#%•  TO  ■)<+>=('. 

IF  VP-1-6  EQUAL  TO  ' *H  E A D E ’ 

WRITE  PRT-RFC  FROM  VP-REC. 

ADD  1 TO  SUR1. 

READP1  SECTION. 

RDD  . 

READ  PCPFILE  AT  END  MOVE  ’♦END-0*  TO  VP-1-6. 


PROCESS-VP  SECTION. 


PR0C1  . 

I F 

IF 

VP-12-16  EGUAL  TO  * 
VP-17-19  NUMERIC 

NEXT  SFNTENCF  ELSE 
X01  MOVE  CTL-01  TO 

XXXXX*  AND 

GO  TO  PROCEND 
V P-12-72  CO 

TO 

PROCEND. 

IF 

X 02 

MOVE 

CTL-02 

TO 

VP-12-72 

CO 

TO 

PROCFND . 

I F 

X03 

MO  VF 

CTL-03 

TC 

VP-12-72 

GO 

TO 

PROCEND . 

IE 

X 04 

MOVE 

CTL-D4 

TO 

VP-12-?? 

GO 

TO 

PROCEND . 

IF 

XI 0 

MOVE 

CTL-10 

TO 

VP-12-72 

CO 

TO 

PROCFND . 

I F 

XII 

MOVE 

CTL-11 

TO 

VP-12-72 

CO 

TO 

PROCEND. 

IF 

X 1 2 

MO  VF 

CTL-12 

TO 

VP-12-72 

CO 

TO 

PROCEND . 

IF 

X 1 3 

MOVE 

CTL-13 

TO 

VP-12-72 

GO 

TO 

PROCFND . 

I F 

X 1 4 

MO  VF 

CTL-14 

TO 

VP-12-72 

CO 

TO 

PROCEND . 

IF 

X 1 5 

MOVE 

CTL-15 

TO 

VP-12-7? 

60 

TO 

PROCEND . 

I F 

X 16 

MOVE 

CTL-16 

TO 

VP-12-72 

CO 

TO 

FROCEND. 

IF 

X 1 7 

MOVE 

CTL-17 

TO 

V P-12-72 

GO 

TO 

PROCEND. 

I F 

XI  8 

MOVE 

C TL-18 

TO 

VP-12-7? 

CO 

TO 

PROCEND. 

IF 

X 1 9 

MOVE 

CTL-19 

TO 

VP-12-72 

CO 

TO 

PROCEND . 

IF 

X 36 

MOVE 

CTL-36 

TO 

VP-12-72 

GO 

TO 

PROCEND . 

I F 

X 37 

MOVE 

C TL -37 

TO 

VP-12-72 

CO 

TO 

PPOCFND . 

IF 

X 4 5 

MOVE 

CTL-45 

TO 

VP-12-72 

GO 

TO 

PROCFND . 

I F 

X 4f 

MOVE 

CTL-4S 

TO 

VP-12-7? 

CO 

TO 

PROCEND . 

IF 

X 49 

MOVE 

CTL-49 

TO 

VP-12-72 

CO 

TO 

PROCEND. 

IF 

X 50 

MOVE 

CTL-50 

TO 

VP-12-72 

CO 

TO 

PROCEND . 

PROCEND.  EXIT. 

WRITE-CARD  SECTION. 

SwRITE  . 

♦COMMENT  4 

♦ The  following  two  IF  statements  locate  the  READ  routine  for  both 

♦ the  Control  Card  File  and  the  Population  File.  The  source  code 
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* to  be  inserted  is  described  under  comment  2.  The  results  of 

* the  modification  permit  the  user  to  control  whether  the  conver- 


* 

s ion 

of 

special 

characters  will  be  done  for  either  the  Control- 

* 

Card 

File  or  the 

Population  File.  This  would  be  handled  throuah 

k 

h 

the 

following  two  PPLVP74  control  statements: 

k 

1 . 

*BC  0 POP 

YES 

it 

n 

2. 

* R C D POP 

NO 

it 

1 . 

★PCDCTL 

YES 

k 

it 

2. 

*B  C 0 C T L 

NO 

k 

The 

YES 

options 

would  cause  character  conversion. 

k 

The 

IF 

NO 

options  would  inhibit  character  conversion. 

VP-12-16  EQUAL  TO  •ROPOPFI* 

WRITE  VP-REC 

MDVE  SPACE  TO  VP-RFC 
MOVE  LINE-1  TO  VP-12-7? 

WRITE  VP-REC 

MOVE  SPACE  TO  VP-REC 

MOVE  LINE-2  TO  VP-12-72 

WRITE  VP-REC 

MOVE  SPACE  TO  VP-REC 

MOVE  LINE-3  TO  VP-12-72. 

IF  VP-12-18  EQUAL  TO  * RD  C TLFI * 

WRITE  VP-REC 

MOVE  SPACE  TO  VP-REC 

MOVE  LINE-4  TO  VP-12-72 

WRITE  VP-REC 

MOVE  SPACE  TO  VP-REC 

MOVE  LINE-5  TO  VP-12-72 

WRITE  VP-REC 

MOVE  SPACE  TO  VP-REC 

MOVE  LINE-6  TO  VP-12-72. 

WRITE  VP-REC. 

/ * 

//60.SYSUT1  OD  D SN=f5SSYSUT1  , 

//  UNIT=TAPE7, 

//  LABEL=(,BLP)» 

//  DISP=<OLD,KEEP) , 

//  DCB=(DEN=2,TRTCH=ET), 

//  V0L=SER=1 5456 

SYSUT1  OD  DSN=H01MES  .INPT  .SOURCE  , DI SP=SH K ,UN1 T =3 330 , 

VOL=SER=USER04 

//G0.SYSUT2  OD  DSN  = >USVP«, 

//  UNI T =S Y S D A ^ 

//  SPACE=(460, (700,100) ), 

//  DCB=(LRFCL=80,BLKSI  ZE=400,RFCFM=FP)  , 

//  DISP=(NEW/PASS) 

/ / GO . SY  SOU  T 00  SYSOUT  = A 
//STEP2  EXEC  COBVCL, 

//  C0N0.LKE0=(9/LT ) 

//COB.SYSIN  00  DSN*«ASVPC, 

//  UNIT=SYSDA, 

//  DISP=(OLO/OELE TF ) 
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//LKED.SY  SLyC  D DD  D I SP  = SH  k # D SN=HO  Lf^E  S . I NP  T . LO  A D ( A S VP8  ) # 

//  UMT  = 3330#V0L=SER=USER04 
/ * 

// 

// 

The  following  discussion  describes  the  philosophy  of  the  imp  lement at  ion 
of  the  VP-routine.  The  major  outout  file  of  the  VP-routine  C Sou r ce -Ou t ou t 
file)  is  where  the  source  programs  will  be  directed.  The  minimum  degree  of 
sophistication  that  the  file  should  attain  is  to  contain  source  programs 
made  syntactically  correct  by  the  VP-routine.  (The  use  of  only  the  'X-cards* 
described  in  the  documentation.)  The  maximum  degree  of  sophistication  of 
this  file  will  be  syntactically  correct  source  programs  and  all  necessary 
Operating  System  Control  Statements  to  establish  a complete  job  or  run# 
allocate  any  necessary  files#  compile  and  execute  each  source  proararr.  tor 
the  three  systems  mentioned  above: 

a.  EXFC  S - The  output  file  is  in  SDF  format  (alternate  punch 
file)  which  can  be  added  to  the  run  stream.  Thp  added  file 
automatically  starts  the  generated  runs. 

b.  6CDS  - The  output  file  is  in  System  Standard  Format  and  is 
an  IMCV  tape  containing  one  or  more  SNUMBs. 

c.  OS  - The  output  file  can  be  introduced  as  a reader  an  i contains 
one  or  morp  joos. 

The  conversion  of  the  data  on  the  Population  File  is  unnecessary  for  the 
three  systems.  Character/code  conversion  can  be  handled  automatically: 

a.  EXEC  8 - The  RECORDING  “ODE  1 clause  in  the  source  program  and 
the  use  of  the  "HIE"  options  in  the  assign  (RASP)  card  for  the 
Popu l at  ion  File. 

b.  GCOS  - The  RECORDING  MCDE  BCD  clause  in  the  source  program  is  all 
that  is  necessary  in  that  the  * IN CODE  control  statement  is 
generated  on  the  IMCV  tape  for  transliteration  of  those  char- 
acters which  must  be  converted. 

c.  OS  - Thp  DD  statement  for  the  7 track  Population  File  should  have 
thp  following  PCB  option  *'D  CB  = ( D E N = 7#  T R T C H = E T ) " to  convert  the  6 
bit  characters  to  8 bit  characters.  The  VP-routine  will  handle 
the  conversion  of  special  characters  through  the  use  of  the 
TRANSFORM  statements  added  to  the  source  program.  Prior  to  any 
♦ENVIRONMENT  statement  a "PCD-PGP  NO"  should  appear  so  that  no 
transformation  of  the  special  characters  in  the  VP-routine  control 
cards  from  the  population  file  takes  place.  Prior  to  the  ♦END- 
MONITOR  card  a "BCD-POP  YES”  should  appear  so  that  the  source 
proorams  extracted  from  the  population  file  will  have  all  special 
characters  translated  to  the  appropriate  EBCDIC  characters. 

NOTE:  The  format  for  the  *FCD-P0P  card  is: 

♦BCD-POP  YES 

♦BCD-POP  NO 
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F.  Corrections  for  Version  3 Release  0 as  of  77/09/01 

This  appendix  represents  Temporary  Program  Fixes  (TFF)  which 
should  be  applied  to  the  CCVS.  These  errors  were  discovered  too 
late  to  be  included  in  the  Population  file  for  version  3.0. 

Temporary  Program  Fix  Number: 

Program  Name: 

Problem  Description: 


(No  errors  have  been  discovered.) 

\ 
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